[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
Don't draw the cursor if the result would be a null rectangle.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/14 20:58:29	1.29
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/14 21:43:48	1.30
@@ -875,10 +875,11 @@
   (multiple-value-bind (cursor-x cursor-y stroke-height object-width)
       (offset-to-screen-position stream view (offset (mark cursor)))
     (letf (((stream-current-output-record stream) cursor))
-      (draw-rectangle* stream
-                       cursor-x cursor-y
-                       (+ cursor-x object-width) (+ cursor-y stroke-height)
-                       :ink (ink cursor)))))
+      (unless (zerop (* object-width stroke-height))
+        (draw-rectangle* stream
+                         cursor-x cursor-y
+                         (+ cursor-x object-width) (+ cursor-y stroke-height)
+                         :ink (ink cursor))))))
 
 (defmethod display-drei-view-cursor :after ((stream extended-output-stream) (view drei-view)
                                             (cursor point-cursor))