[gsharp-cvs] CVS gsharp

[crhodes]

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

Modified Files:
	gui.lisp 
Log Message:
Scrolling.

* change space requirements after drawing to a score pane
* intercept window-clear on score panes, so as not to reset sheet 
transformations, viewport positions, and so on, but just to clear the 
output record and draw in background ink.


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2006/03/02 09:29:44	1.59
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2006/05/14 07:51:27	1.60
@@ -167,7 +167,18 @@
     (score-pane:with-score-pane pane
       (draw-buffer pane buffer (current-cursor)
 		   (left-margin buffer) 100)
-      (gsharp-drawing::draw-the-cursor pane (current-cursor) (cursor-element (current-cursor)) (last-note (input-state *application-frame*))))))
+      (gsharp-drawing::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)
+        (declare (ignore minx maxx))
+        (change-space-requirements pane :height (- maxy miny))))))
+
+(defmethod window-clear ((pane score-pane:score-pane))
+  (let ((output-history (stream-output-history pane)))
+    (with-bounding-rectangle* (left top right bottom) output-history
+      (medium-clear-area (sheet-medium pane) left top right bottom))
+    (clear-output-record output-history))
+  (window-erase-viewport pane))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;