[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv18518

Modified Files:
	typeout.lisp 
Log Message:
Fixed redisplay issue for typeout views.


--- /project/climacs/cvsroot/climacs/typeout.lisp	2008/01/21 15:15:44	1.2
+++ /project/climacs/cvsroot/climacs/typeout.lisp	2008/01/21 17:08:48	1.3
@@ -53,16 +53,20 @@
       (call-next-method)))
 
 (defmethod display-drei-view-contents ((pane pane) (view typeout-view))
-  
-  (with-output-recording-options (pane :record nil :draw t)
-    (with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport pane)
-                                                pane)
-      (draw-rectangle* pane x1 y1 x2 y2 :ink +background-ink+))
-    (replay-output-record (output-history view) pane))
-  (unless (eq (output-record-parent (output-history view))
-              (stream-output-history pane))
-    (setf (output-record-parent (output-history view)) nil)
-    (add-output-record (output-history view) (stream-output-history pane)))
+  (when (or (dirty view)
+            (not (eq (output-record-parent (output-history view))
+                     (stream-output-history pane))))
+    (with-output-recording-options (pane :record nil :draw t)
+      (with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport-region pane)
+                                                  (sheet-region pane))
+        (draw-rectangle* pane x1 y1 x2 y2 :ink +background-ink+))
+      (replay-output-record (output-history view) pane
+                            (or (pane-viewport-region pane)
+                                (sheet-region pane))))
+    (unless (eq (output-record-parent (output-history view))
+                (stream-output-history pane))
+      (setf (output-record-parent (output-history view)) nil)
+      (add-output-record (output-history view) (stream-output-history pane))))
   (setf (dirty view) nil))
 
 (defmethod bounding-rectangle* ((view typeout-view))