[gsharp-cvs] CVS gsharp

[crhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv21920

Modified Files:
	gui.lisp 
Log Message:
More likely space requirements handling.  (More likely to actually work, 
that is.  Thanks to Athas and hefner for the ideas and the debugging 
patience.)


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2007/09/14 15:52:57	1.85
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2007/09/17 20:30:59	1.86
@@ -203,9 +203,9 @@
       (draw-the-cursor pane (current-cursor) (cursor-element (current-cursor))
                        (last-note (input-state *application-frame*)))
       (multiple-value-bind (minx miny maxx maxy)
-          (bounding-rectangle* pane)
+          (bounding-rectangle* (stream-output-history pane))
         (declare (ignore minx maxx))
-        (change-space-requirements pane :height (- maxy miny))))))
+        (change-space-requirements pane :height (+ maxy miny))))))
 
 (defmethod window-clear ((pane score-pane:score-pane))
   (let ((output-history (stream-output-history pane)))