[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv27372

Modified Files:
	recording.lisp 
Log Message:
Output recording bandaids:

Use CLIM 2.2 region default for replay.

Don't assume every parent output record is a compound-output-record.


--- /project/mcclim/cvsroot/mcclim/recording.lisp	2008/01/21 22:24:32	1.137
+++ /project/mcclim/cvsroot/mcclim/recording.lisp	2008/02/02 19:03:00	1.138
@@ -401,7 +401,8 @@
   (with-bounding-rectangle* (min-x min-y max-x max-y) record
     (call-next-method)
     (let ((parent (output-record-parent record)))
-      (when (and parent (not (slot-value parent 'in-moving-p)))
+      (when (and parent (not (and (typep parent 'compound-output-record)
+                                  (slot-value parent 'in-moving-p)))) ; XXX
         (recompute-extent-for-changed-child parent record
                                             min-x min-y max-x max-y))))
   (values nx ny))
@@ -461,7 +462,8 @@
     (gs-ink-mixin gs-clip-mixin gs-line-style-mixin gs-text-style-mixin)
   ())
 
-(defun replay (record stream &optional region)
+(defun replay (record stream &optional (region (or (pane-viewport-region stream)
+                                                   (sheet-region stream))))
   (if (typep stream 'encapsulating-stream)
       (replay record (encapsulating-stream-stream stream) region)
       (progn