From rstrandh at common-lisp.net  Fri Jul 31 11:32:22 2009
From: rstrandh at common-lisp.net (rstrandh)
Date: Fri, 31 Jul 2009 07:32:22 -0400
Subject: [mcclim-cvs] CVS mcclim
Message-ID: <E1MWqLW-0002ZQ-JU@common-lisp.net>

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))