Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv9781
Modified Files: stream-output.lisp Log Message: Patch from Nikodemus Siivola adding an :after method on stream-finish-output for standard-extended-output-stream.
--- /project/mcclim/cvsroot/mcclim/stream-output.lisp 2008/10/23 20:49:58 1.63 +++ /project/mcclim/cvsroot/mcclim/stream-output.lisp 2009/07/31 11:32:21 1.64 @@ -202,6 +202,11 @@ (with-sheet-medium (medium stream) (medium-force-output medium)))
+(defmethod stream-finish-output :after ((stream + standard-extended-output-stream)) + (with-sheet-medium (medium stream) + (medium-finish-output medium))) + (defmethod compose-space ((pane standard-extended-output-stream) &key width height) (declare (ignorable width height))