Juliusz Chroboczek jch@pps.jussieu.fr writes:

Minimises redraws.

So it does. Thank you.

Best,

Christophe

Index: Backends/CLX/port.lisp

RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v retrieving revision 1.137 diff -u -r1.137 port.lisp --- Backends/CLX/port.lisp 18 Feb 2009 17:34:44 -0000 1.137 +++ Backends/CLX/port.lisp 2 Mar 2009 21:07:05 -0000 @@ -363,6 +367,7 @@ (override-redirect :off) (map t) (backing-store :not-useful)

•                            (save-under :off)
  	(event-mask `(:exposure 
  		      :key-press :key-release
  		      :button-press :button-release
  

@@ -412,6 +417,7 @@ :border border :override-redirect override-redirect :backing-store backing-store

•                :save-under save-under
                 :gravity :north-west
                 ;; Evil Hack -- but helps enormously (Has anybody
                 ;; a good idea how to sneak the concept of
  

@@ -456,6 +462,7 @@ (defmethod realize-mirror ((port clx-port) (sheet unmanaged-top-level-sheet-pane)) (realize-mirror-aux port sheet :override-redirect :on

•                  :save-under :on
      :map nil
      :event-mask '(:structure-notify)))