equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic2' }" |
12 "{ Package: 'stx:libbasic2' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Stream subclass:#PrinterStream |
16 Stream subclass:#PrinterStream |
15 instanceVariableNames:'stream native pageFormat underline strikeout' |
17 instanceVariableNames:'stream native pageFormat underline strikeout' |
16 classVariableNames:'DefaultPageFormat' |
18 classVariableNames:'DefaultPageFormat' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
150 Landscape isNil ifTrue:[ |
152 Landscape isNil ifTrue:[ |
151 Landscape := false |
153 Landscape := false |
152 ]. |
154 ]. |
153 |
155 |
154 PageFormat isNil ifTrue:[ |
156 PageFormat isNil ifTrue:[ |
155 Language == #us ifTrue:[ |
157 Smalltalk language == #us ifTrue:[ |
156 PageFormat := #letter |
158 PageFormat := #letter |
157 ] ifFalse:[ |
159 ] ifFalse:[ |
158 PageFormat := #a4 |
160 PageFormat := #a4 |
159 ] |
161 ] |
160 ] |
162 ] |
1070 ! ! |
1072 ! ! |
1071 |
1073 |
1072 !PrinterStream class methodsFor:'documentation'! |
1074 !PrinterStream class methodsFor:'documentation'! |
1073 |
1075 |
1074 version |
1076 version |
1075 ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.76 2014-07-09 03:08:14 cg Exp $' |
1077 ^ '$Header$' |
1076 ! ! |
1078 ! ! |
1077 |
1079 |
1078 |
1080 |
1079 PrinterStream initialize! |
1081 PrinterStream initialize! |