[mcclim-cvs] CVS mcclim/Backends/PostScript

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript
In directory common-lisp:/tmp/cvs-serv804/Backends/PostScript

Modified Files:
	class.lisp 
Log Message:
More divergence minimization
... make UPDATING-OUTPUT-STREAM-MIXIN a superclass of POSTSCRIPT-STREAM.  
Allows use of updating-output on postscript streams.


--- /project/mcclim/cvsroot/mcclim/Backends/PostScript/class.lisp	2005/10/31 10:21:14	1.7
+++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/class.lisp	2006/02/06 16:47:47	1.8
@@ -55,14 +55,19 @@
              "Unknown")
   #-unix "")
 
-(defclass postscript-stream (basic-sheet
-                             sheet-leaf-mixin
-                             sheet-mute-input-mixin
-                             permanent-medium-sheet-output-mixin
-                             sheet-mute-repainting-mixin
-                             mirrored-sheet-mixin ; ?
-                             standard-extended-output-stream
-                             standard-output-recording-stream)
+(defclass postscript-stream 
+    (basic-sheet
+     sheet-leaf-mixin sheet-mute-input-mixin 
+     permanent-medium-sheet-output-mixin sheet-mute-repainting-mixin
+     ;; ?
+     mirrored-sheet-mixin
+     ;; FIXME: Tim Moore suggested (2006-02-06, mcclim-devel) that
+     ;; this might better be a superclass of
+     ;; STANDARD-OUTPUT-RECORDING-STREAM.  This should be revisited
+     ;; when we grow another non-interactive backend (maybe a cl-pdf
+     ;; backend?).  -- CSR.
+     climi::updating-output-stream-mixin
+     standard-extended-output-stream standard-output-recording-stream)
   ((file-stream :initarg :file-stream :reader postscript-stream-file-stream)
    (title :initarg :title)
    (for :initarg :for)