[clfswm-cvs] r388 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sun Nov 14 04:10:46 2010
New Revision: 388

Log:
expose-windows-generic: banish pointer on exit

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

Modified: clfswm/src/clfswm-expose-mode.lisp
==============================================================================
--- clfswm/src/clfswm-expose-mode.lisp	(original)
+++ clfswm/src/clfswm-expose-mode.lisp	Sun Nov 14 04:10:46 2010
@@ -186,6 +186,7 @@
       (setf (frame-layout frame) (frame-data-slot frame :old-layout)
 	    (frame-data-slot frame :old-layout) nil))
     (show-all-children *current-root*)
+    (banish-pointer)
     (unless grab-keyboard-p
       (xungrab-keyboard)
       (grab-main-keys))