--- a/PrinterStream.st Sun Sep 07 02:03:29 1997 +0200
+++ b/PrinterStream.st Thu Sep 11 00:36:50 1997 +0200
@@ -18,20 +18,6 @@
!
PrinterStream class instanceVariableNames:'PrintCommand DefaultCommands PageFormat DefaultPageFormats Landscape'
-
-"
- The following class instance variables are inherited by this class:
-
- PipeStream -
- NonPositionableExternalStream -
- ExternalStream -
- ReadWriteStream -
- WriteStream -
- PositionableStream -
- PeekableStream -
- Stream -
- Object -
-"
!
!PrinterStream class methodsFor:'documentation'!
@@ -97,25 +83,27 @@
initialize
"this is usually redefined by the startup-file"
- DefaultCommands isNil ifTrue:[
- DefaultCommands := #(
- 'lpr'
- 'lpr -P<your-printer>'
- 'cat | rsh <printHost> lpr -h'
- 'cat >xxx ; ghostview xxx'
- 'cat > printfile'
- 'a2ps'
- 'a2ps | rsh <printHost> lpr -h'
- 'a2ps > printfile'
- ).
- ].
+ OperatingSystem isUNIXlike ifTrue:[
+ DefaultCommands isNil ifTrue:[
+ DefaultCommands := #(
+ 'lpr'
+ 'lpr -P<your-printer>'
+ 'cat | rsh <printHost> lpr -h'
+ 'cat >xxx ; ghostview xxx'
+ 'cat > printfile'
+ 'a2ps'
+ 'a2ps | rsh <printHost> lpr -h'
+ 'a2ps > printfile'
+ ).
+ ].
- PrintCommand isNil ifTrue:[
- (OperatingSystem canExecuteCommand:'lpr') ifTrue:[
- PrintCommand := 'lpr'
- ] ifFalse:[
- PrintCommand := 'lp'
- ]
+ PrintCommand isNil ifTrue:[
+ (OperatingSystem canExecuteCommand:'lpr') ifTrue:[
+ PrintCommand := 'lpr'
+ ] ifFalse:[
+ PrintCommand := 'lp'
+ ]
+ ]
].
DefaultPageFormats isNil ifTrue:[
@@ -773,6 +761,6 @@
!PrinterStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.46 1997-01-03 18:48:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.47 1997-09-10 22:36:50 cg Exp $'
! !
PrinterStream initialize!