[clfswm-cvs] r334 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sun Sep 26 15:40:30 2010
New Revision: 334

Log:
Fixe a double gcontext free

Modified:
   clfswm/src/clfswm-circulate-mode.lisp
   clfswm/src/clfswm-expose-mode.lisp

Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp	(original)
+++ clfswm/src/clfswm-circulate-mode.lisp	Sun Sep 26 15:40:30 2010
@@ -160,6 +160,7 @@
     (xlib:close-font *circulate-font*))
   (xlib:display-finish-output *display*)
   (setf *circulate-window* nil
+	*circulate-gc* nil
 	*circulate-font* nil))
 
 (defun circulate-loop-function ()

Modified: clfswm/src/clfswm-expose-mode.lisp
==============================================================================
--- clfswm/src/clfswm-expose-mode.lisp	(original)
+++ clfswm/src/clfswm-expose-mode.lisp	Sun Sep 26 15:40:30 2010
@@ -160,13 +160,14 @@
 	  (when (and child parent)
 	    (pfuncall body parent)
 	    (focus-all-children child parent)))))
-    (when *expose-font*
-      (xlib:close-font *expose-font*))
     (dolist (lwin *expose-windows-list*)
       (awhen (first lwin)
 	(xlib:destroy-window it))
       (awhen (second lwin)
-	(xlib:free-gcontext it)))
+	     (xlib:free-gcontext it)))
+    (when *expose-font*
+      (xlib:close-font *expose-font*))
+    (setf *expose-windows-list* nil)
     (with-all-frames (first-restore-frame frame)
       (setf (frame-layout frame) (frame-data-slot frame :old-layout)
 	    (frame-data-slot frame :old-layout) nil))