WinPrinterStream.st
changeset 2889 d2055a8b1055
parent 2591 6bfb23a13a3a
child 2984 a0d6401b9412
--- a/WinPrinterStream.st	Thu Feb 03 14:13:17 2011 +0100
+++ b/WinPrinterStream.st	Wed Feb 09 13:47:02 2011 +0100
@@ -74,6 +74,20 @@
     self halt:'unimpleemnted feature'
 ! !
 
+!WinPrinterStream class methodsFor:'class initialization'!
+
+initialize
+    "in some configurations (expecco), libview2 is loaded lazy and later,
+     and the printer is setup to be PrinterStream (which is stupid).
+     Here, we install ourself."
+
+    (Printer isNil or:[Printer == PrinterStream]) ifTrue:[
+        Printer := self.
+    ].
+
+    "Created: / 09-02-2011 / 13:46:27 / cg"
+! !
+
 !WinPrinterStream class methodsFor:'queries'!
 
 isDrivenByCommand
@@ -294,5 +308,11 @@
 !WinPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterStream.st,v 1.9 2009-01-19 13:45:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterStream.st,v 1.10 2011-02-09 12:47:02 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterStream.st,v 1.10 2011-02-09 12:47:02 cg Exp $'
 ! !
+
+WinPrinterStream initialize!