[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