[mcclim-cvs] CVS mcclim

[ahefner]

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

Modified Files:
	recording.lisp 
Log Message:
Fix 'replay' to work on encapsulated streams.



--- /project/mcclim/cvsroot/mcclim/recording.lisp	2006/05/28 21:32:43	1.127
+++ /project/mcclim/cvsroot/mcclim/recording.lisp	2006/06/13 02:26:46	1.128
@@ -462,21 +462,24 @@
   ())
 
 (defun replay (record stream &optional region)
-  (stream-close-text-output-record stream)
-  (when (stream-drawing-p stream)
-    (with-cursor-off stream ;;FIXME?
-      (letf (((stream-cursor-position stream) (values 0 0))
-             ((stream-recording-p stream) nil)
-	     ;; Is there a better value to bind to baseline?
-             ((slot-value stream 'baseline) (slot-value stream 'baseline)))
-	(with-sheet-medium (medium stream)
-	  (let ((transformation (medium-transformation medium)))
-	    (unwind-protect
-		 (progn
-		   (setf (medium-transformation medium)
-			 +identity-transformation+)
-		   (replay-output-record record stream region))
-	      (setf (medium-transformation medium) transformation))))))))
+  (if (typep stream 'encapsulating-stream)
+      (replay record (encapsulating-stream-stream stream) region)
+      (progn
+        (stream-close-text-output-record stream)
+        (when (stream-drawing-p stream)
+          (with-cursor-off stream ;;FIXME?
+            (letf (((stream-cursor-position stream) (values 0 0))
+                   ((stream-recording-p stream) nil)
+                   ;; Is there a better value to bind to baseline?
+                   ((slot-value stream 'baseline) (slot-value stream 'baseline)))
+              (with-sheet-medium (medium stream)
+                (let ((transformation (medium-transformation medium)))
+                  (unwind-protect
+                       (progn
+                         (setf (medium-transformation medium)
+                               +identity-transformation+)
+                         (replay-output-record record stream region))
+                    (setf (medium-transformation medium) transformation))))))))))
 
 (defmethod replay-output-record ((record compound-output-record) stream
 				 &optional region (x-offset 0) (y-offset 0))