| changeset 569 | 9030f82afd08 |
| parent 468 | 7f0c61edae54 |
| child 571 | 191b37534643 |
| 568:31f82f9fb363 | 569:9030f82afd08 |
|---|---|
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Streams-External' |
17 category:'Streams-External' |
18 ! |
18 ! |
19 |
19 |
20 PrinterStream class instanceVariableNames:'PrintCommand DefaultCommands PageFormat DefaultPageFormats Landscape' |
20 PrinterStream class instanceVariableNames:'PrintCommand DefaultCommands PageFormat DefaultPageFormats Landscape' |
21 |
|
22 " |
|
23 The following class instance variables are inherited by this class: |
|
24 |
|
25 PipeStream - |
|
26 NonPositionableExternalStream - |
|
27 ExternalStream - |
|
28 ReadWriteStream - |
|
29 WriteStream - |
|
30 PositionableStream - |
|
31 PeekableStream - |
|
32 Stream - |
|
33 Object - |
|
34 " |
|
35 ! |
21 ! |
36 |
22 |
37 !PrinterStream class methodsFor:'documentation'! |
23 !PrinterStream class methodsFor:'documentation'! |
38 |
24 |
39 copyright |
25 copyright |
95 !PrinterStream class methodsFor:'initialization'! |
81 !PrinterStream class methodsFor:'initialization'! |
96 |
82 |
97 initialize |
83 initialize |
98 "this is usually redefined by the startup-file" |
84 "this is usually redefined by the startup-file" |
99 |
85 |
100 DefaultCommands isNil ifTrue:[ |
86 OperatingSystem isUNIXlike ifTrue:[ |
101 DefaultCommands := #( |
87 DefaultCommands isNil ifTrue:[ |
102 'lpr' |
88 DefaultCommands := #( |
103 'lpr -P<your-printer>' |
89 'lpr' |
104 'cat | rsh <printHost> lpr -h' |
90 'lpr -P<your-printer>' |
105 'cat >xxx ; ghostview xxx' |
91 'cat | rsh <printHost> lpr -h' |
106 'cat > printfile' |
92 'cat >xxx ; ghostview xxx' |
107 'a2ps' |
93 'cat > printfile' |
108 'a2ps | rsh <printHost> lpr -h' |
94 'a2ps' |
109 'a2ps > printfile' |
95 'a2ps | rsh <printHost> lpr -h' |
110 ). |
96 'a2ps > printfile' |
111 ]. |
97 ). |
112 |
98 ]. |
113 PrintCommand isNil ifTrue:[ |
99 |
114 (OperatingSystem canExecuteCommand:'lpr') ifTrue:[ |
100 PrintCommand isNil ifTrue:[ |
115 PrintCommand := 'lpr' |
101 (OperatingSystem canExecuteCommand:'lpr') ifTrue:[ |
116 ] ifFalse:[ |
102 PrintCommand := 'lpr' |
117 PrintCommand := 'lp' |
103 ] ifFalse:[ |
118 ] |
104 PrintCommand := 'lp' |
105 ] |
|
106 ] |
|
119 ]. |
107 ]. |
120 |
108 |
121 DefaultPageFormats isNil ifTrue:[ |
109 DefaultPageFormats isNil ifTrue:[ |
122 "/ UnitConverter must support all of them. |
110 "/ UnitConverter must support all of them. |
123 self defaultPageFormats:#( |
111 self defaultPageFormats:#( |
771 ! ! |
759 ! ! |
772 |
760 |
773 !PrinterStream class methodsFor:'documentation'! |
761 !PrinterStream class methodsFor:'documentation'! |
774 |
762 |
775 version |
763 version |
776 ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.46 1997-01-03 18:48:44 cg Exp $' |
764 ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.47 1997-09-10 22:36:50 cg Exp $' |
777 ! ! |
765 ! ! |
778 PrinterStream initialize! |
766 PrinterStream initialize! |