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