equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Streams-External' |
17 category:'Streams-External' |
18 ! |
18 ! |
19 |
19 |
20 HPLjetIIPrinterStream comment:' |
20 HPLjetIIPrinterStream comment:' |
21 $Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.4 1993-10-13 02:12:16 claus Exp $ |
21 $Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.5 1994-01-08 16:18:44 claus Exp $ |
22 '! |
22 '! |
23 |
23 |
24 !HPLjetIIPrinterStream methodsFor:'access writing'! |
24 !HPLjetIIPrinterStream methodsFor:'access writing'! |
25 |
25 |
26 cr |
26 cr |
27 "have to output cr-nl here" |
27 "have to output cr-nl here" |
28 |
28 |
29 super nextPutUntranslated:(Character value:13). |
29 super nextPutUntranslated:(Character value:13). |
30 super nextPutUntranslated:(Character value:10). |
30 super nextPutUntranslated:(Character value:10). |
31 self spaces:leftMargin |
31 self spaces:LeftMargin |
32 ! |
32 ! |
33 |
33 |
34 courier |
34 courier |
35 "switch to courier font" |
35 "switch to courier font" |
36 |
36 |