[clfswm-cvs] r109 - clfswm/src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Thu May  1 16:40:22 2008
New Revision: 109

Modified:
   clfswm/src/clfswm-info.lisp
Log:
Info mode: Add boundaries with mouse wheel movement

Modified: clfswm/src/clfswm-info.lisp
==============================================================================
--- clfswm/src/clfswm-info.lisp	(original)
+++ clfswm/src/clfswm-info.lisp	Thu May  1 16:40:22 2008
@@ -169,13 +169,13 @@
 (defun info-mouse-next-line (window root-x root-y info)
   "Move one line down"
   (declare (ignore window root-x root-y))
-  (incf (info-y info) (info-ilh info))
+  (setf (info-y info) (min (+ (info-y info) (info-ilh info)) (info-max-y info)))
   (draw-info-window info))
 
 (defun info-mouse-previous-line (window root-x root-y info)
   "Move one line up"
   (declare (ignore window root-x root-y))
-  (decf (info-y info) (info-ilh info))
+  (setf (info-y info) (max (- (info-y info) (info-ilh info)) 0))
   (draw-info-window info))