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

[Philippe Brochard]

Author: pbrochard
Date: Tue Apr 28 17:26:48 2009
New Revision: 218

Log:
sm-handle-motion-notify: Optimisation when drawing second mode window.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Apr 28 17:26:48 2009
@@ -1,3 +1,8 @@
+2009-04-28  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-second-mode.lisp (sm-handle-motion-notify):
+	Optimisation when drawing second mode window.
+
 2009-04-27  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-circulate-mode.lisp (circulate-mode): Optimisation in

Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp	(original)
+++ clfswm/src/clfswm-circulate-mode.lisp	Tue Apr 28 17:26:48 2009
@@ -35,7 +35,6 @@
 
 (defparameter *circulate-leave-key* nil)
 
-
 (defun draw-circulate-mode-window ()
   (raise-window *circulate-window*)
   (clear-pixmap-buffer *circulate-window* *circulate-gc*)

Modified: clfswm/src/clfswm-second-mode.lisp
==============================================================================
--- clfswm/src/clfswm-second-mode.lisp	(original)
+++ clfswm/src/clfswm-second-mode.lisp	Tue Apr 28 17:26:48 2009
@@ -33,8 +33,6 @@
   "Execute the program string if not nil")
 
 
-
-
 (defun draw-second-mode-window ()
   (raise-window *sm-window*)
   (clear-pixmap-buffer *sm-window* *sm-gc*)
@@ -63,8 +61,7 @@
 (defun sm-handle-motion-notify (&rest event-slots &key window root-x root-y &allow-other-keys)
   (declare (ignore event-slots))
   (unless (compress-motion-notify)
-    (funcall-button-from-code *second-mouse* 'motion 0 window root-x root-y *fun-press*)
-    (draw-second-mode-window)))
+    (funcall-button-from-code *second-mouse* 'motion 0 window root-x root-y *fun-press*)))
 
 (defun sm-handle-button-press (&rest event-slots &key window root-x root-y code state &allow-other-keys)
   (declare (ignore event-slots))