[clfswm-cvs] r217 - in clfswm: . src

Philippe Brochard pbrochard at common-lisp.net
Mon Apr 27 21:36:55 UTC 2009


Author: pbrochard
Date: Mon Apr 27 17:36:54 2009
New Revision: 217

Log:
circulate-mode: Optimisation in window redraw.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Mon Apr 27 17:36:54 2009
@@ -1,3 +1,8 @@
+2009-04-27  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in
+	window redraw.
+
 2009-04-22  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-util.lisp (run-program-from-query-string): Launch

Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp	(original)
+++ clfswm/src/clfswm-circulate-mode.lisp	Mon Apr 27 17:36:54 2009
@@ -127,6 +127,7 @@
   (define-circulate-key ("Escape") 'leave-circulate-mode)
   (define-circulate-key ("Tab" :mod-1) 'circulate-select-next-child)
   (define-circulate-key ("Tab" :mod-1 :shift) 'circulate-select-previous-child)
+  (define-circulate-key ("Iso_Left_Tab" :mod-1 :shift) 'circulate-select-previous-child)
   (define-circulate-key ("Right" :mod-1) 'circulate-select-next-brother)
   (define-circulate-key ("Left" :mod-1) 'circulate-select-previous-brother)
 
@@ -165,8 +166,7 @@
 	    (setf leave nil)
 	    (return)))
     (when leave
-      (leave-circulate-mode)))
-  (raise-window *circulate-window*))
+      (leave-circulate-mode))))
 
 (defun circulate-handle-key-press (&rest event-slots &key root code state &allow-other-keys)
   (declare (ignore event-slots root))
@@ -181,10 +181,6 @@
   (declare (ignore event-slots root))
   (funcall-key-from-code *circulate-keys-release* code state))
 
-(defun circulate-handle-exposure (&rest event-slots)
-  (apply #'handle-exposure event-slots)
-  (draw-circulate-mode-window))
-
 
 
 (defun circulate-mode (&key child-direction brother-direction)
@@ -222,8 +218,7 @@
 		  :loop-function #'circulate-loop-function
 		  :leave-function #'circulate-leave-function
 		  :key-press-hook #'circulate-handle-key-press
-		  :key-release-hook #'circulate-handle-key-release
-		  :exposure-hook #'circulate-handle-exposure)
+		  :key-release-hook #'circulate-handle-key-release)
     (unless grab-keyboard-p
       (xungrab-keyboard)
       (grab-main-keys))




More information about the clfswm-cvs mailing list