--- a/PrinterStream.st Tue Apr 02 23:11:30 2013 +0200
+++ b/PrinterStream.st Tue Apr 02 23:11:34 2013 +0200
@@ -92,6 +92,12 @@
initialize
"this is usually redefined by the startup-file"
+ "/ self initializePrintParameters -- now done lazily
+!
+
+initializePrintParameters
+ "this is usually redefined by the startup-file"
+
OperatingSystem isUNIXlike ifTrue:[
DefaultCommands isNil ifTrue:[
DefaultCommands := #(
@@ -232,7 +238,8 @@
DefaultCommands isNil ifTrue:[
self == PrinterStream ifFalse:[
^ self superclass defaultCommands
- ]
+ ].
+ self initializePrintParameters
].
^ DefaultCommands
@@ -261,7 +268,8 @@
DefaultDevices isNil ifTrue:[
self == PrinterStream ifFalse:[
^ self superclass defaultDevices
- ]
+ ].
+ self initializePrintParameters
].
^ DefaultDevices
!
@@ -282,11 +290,10 @@
PrinterStream defaultPageFormats:#( ... )"
DefaultPageFormats isNil ifTrue:[
- self == PrinterStream ifTrue:[
- ^ #(a4)
- ] ifFalse:[
+ self == PrinterStream ifFalse:[
^ self superclass defaultPageFormats
- ]
+ ].
+ self initializePrintParameters
].
^ DefaultPageFormats
@@ -356,7 +363,8 @@
Landscape isNil ifTrue:[
self == PrinterStream ifFalse:[
^ self superclass landscape
- ]
+ ].
+ self initializePrintParameters
].
^ Landscape
!
@@ -389,7 +397,8 @@
PageFormat isNil ifTrue:[
self == PrinterStream ifFalse:[
^ self superclass pageFormat
- ]
+ ].
+ self initializePrintParameters
].
^ PageFormat
@@ -419,9 +428,10 @@
settings menu."
PrintCommand isNil ifTrue:[
- self ~~ PrinterStream ifTrue:[
+ self ~~ PrinterStream ifTrue:[
^ self superclass printCommand
- ]
+ ].
+ self initializePrintParameters.
].
^ PrintCommand
@@ -452,9 +462,10 @@
settings menu."
PrintDevice isNil ifTrue:[
- self == PrinterStream ifFalse:[
+ self ~~ PrinterStream ifTrue:[
^ self superclass printDevice
- ]
+ ].
+ self initializePrintParameters.
].
^ PrintDevice
!
@@ -1039,7 +1050,8 @@
!PrinterStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.73 2012-12-10 11:12:08 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.74 2013-04-02 21:11:34 cg Exp $'
! !
+
PrinterStream initialize!