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))