Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv3467

Modified Files: clim-area.lisp Log Message: The commit on 2006-03-01 to clim-area claimed to add space for a visible cursor, but in fact added space for a cursor whether visible or not. Only add in the space for visible cursors.

This fixes most of the text glitches in the clim listener; now where previously e.g. (* 2 3) RET would leave an extra space at the end of the bounding rectangle, the text is tightly bound. *package* RET still has a problem, as the RET there seems to open a new (empty) screen line.

--- /project/mcclim/cvsroot/mcclim/Goatee/clim-area.lisp 2006/04/01 07:58:37 1.33 +++ /project/mcclim/cvsroot/mcclim/Goatee/clim-area.lisp 2006/05/09 14:01:09 1.34 @@ -219,11 +219,11 @@ (let ((cursor (cursor record))) (multiple-value-bind (x1 y1 x2 y2) (call-next-method) (values x1 y1 - (if cursor + (if (and cursor (eq (cursor-visibility cursor) :on)) (with-slots (climi::x climi::width) cursor (max x2 (+ climi::x climi::width))) x2) - (if cursor + (if (and cursor (eq (cursor-visibility cursor) :on)) (max y2 (+ y1 (climi::cursor-height cursor))) y2)))))