[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv14980/Drei

Modified Files:
	drei-redisplay.lisp 
Log Message:
Be careful to draw only inside the strokes when highlighting them.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/20 19:50:20	1.46
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/21 20:23:40	1.47
@@ -576,7 +576,7 @@
       (funcall (drawing-options-function (stroke-drawing-options stroke))
                pane view stroke cursor-x cursor-y #'stroke-drawing-fn t)
       (when *highlight-strokes*
-        (draw-rectangle* pane x1 y1 x2 (1- y2) :filled nil :ink *stroke-boundary-ink*)
+        (draw-rectangle* pane x1 y1 (1- x2) (1- y2) :filled nil :ink *stroke-boundary-ink*)
         (draw-line* pane x1 (+ y1 center) x2 (+ y1 center) :ink *stroke-baseline-ink*)))))
 
 (defun end-line (line x1 y1 line-width line-height)