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