[mcclim-cvs] CVS mcclim/Goatee

[crhodes]

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