[mcclim-devel] Set save-unders for transient windows

[Christophe Rhodes]

Juliusz Chroboczek <jch at 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)))
>