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)