Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory cl-net:/tmp/cvs-serv10178/Backends/CLX

Modified Files: port.lisp Log Message: Minimize redraws in the CLX backend. Patch from Juliusz Chroboczek.

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2009/02/18 17:34:44 1.137 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2009/04/20 09:56:45 1.138 @@ -363,6 +363,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 +413,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 @@ -461,6 +463,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)))