equal
deleted
inserted
replaced
14 instanceVariableNames:'xPos yPos lineBuffer colNr lineNr fFamily fStyle pageStartAction |
14 instanceVariableNames:'xPos yPos lineBuffer colNr lineNr fFamily fStyle pageStartAction |
15 pageEndAction' |
15 pageEndAction' |
16 classVariableNames:'Prolog Trailer PageProlog PageTrailer FontNames FontHeight |
16 classVariableNames:'Prolog Trailer PageProlog PageTrailer FontNames FontHeight |
17 FontWidth LeftX TopY PageHeight LinesPerPage PhysicalPageHeight |
17 FontWidth LeftX TopY PageHeight LinesPerPage PhysicalPageHeight |
18 Italic Bold Normal BoldItalic Courier Times Helvetica TopInset |
18 Italic Bold Normal BoldItalic Courier Times Helvetica TopInset |
19 LeftInset BottomInset' |
19 LeftInset BottomInset SupportsColor' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Streams-External' |
21 category:'Streams-External' |
22 ! |
22 ! |
23 |
23 |
24 !PostscriptPrinterStream class methodsFor:'documentation'! |
24 !PostscriptPrinterStream class methodsFor:'documentation'! |
25 |
25 |
26 copyright |
26 copyright |
27 " |
27 " |
28 COPYRIGHT (c) 1988 by Claus Gittinger |
28 COPYRIGHT (c) 1988 by Claus Gittinger |
29 All Rights Reserved |
29 All Rights Reserved |
243 (Image fromFile:'bitmaps/SBrowser.xbm') displayOn:drawable at:(50@30). |
243 (Image fromFile:'bitmaps/SBrowser.xbm') displayOn:drawable at:(50@30). |
244 [exEnd] |
244 [exEnd] |
245 " |
245 " |
246 ! ! |
246 ! ! |
247 |
247 |
248 !PostscriptPrinterStream class methodsFor:'initialization'! |
248 !PostscriptPrinterStream class methodsFor:'initialization'! |
249 |
249 |
250 initCharacterSize |
250 initCharacterSize |
251 "setup the character parameters" |
251 "setup the character parameters" |
252 |
252 |
253 FontHeight := 200. "/ used to scale fonts - corresponds to a 10 point font size |
253 FontHeight := 200. "/ used to scale fonts - corresponds to a 10 point font size |
497 self initProlog. |
497 self initProlog. |
498 |
498 |
499 "Created: 31.5.1996 / 23:35:18 / cg" |
499 "Created: 31.5.1996 / 23:35:18 / cg" |
500 ! ! |
500 ! ! |
501 |
501 |
502 !PostscriptPrinterStream class methodsFor:'accessing - defaults'! |
502 !PostscriptPrinterStream class methodsFor:'accessing - defaults'! |
503 |
503 |
504 bottomInset |
504 bottomInset |
505 "return the bottom margin (in inches)" |
505 "return the bottom margin (in inches)" |
506 |
506 |
507 ^ BottomInset |
507 ^ BottomInset |
537 |
537 |
538 "Created: 3.6.1996 / 10:46:33 / cg" |
538 "Created: 3.6.1996 / 10:46:33 / cg" |
539 "Modified: 3.6.1996 / 10:47:21 / cg" |
539 "Modified: 3.6.1996 / 10:47:21 / cg" |
540 ! |
540 ! |
541 |
541 |
|
542 supportsColor |
|
543 SupportsColor notNil ifTrue:[^ SupportsColor]. |
|
544 ^ false |
|
545 ! |
|
546 |
|
547 supportsColor:aBoolean |
|
548 SupportsColor := aBoolean. |
|
549 ! |
|
550 |
542 topInset |
551 topInset |
543 "return the top margin (in inches)" |
552 "return the top margin (in inches)" |
544 |
553 |
545 ^ TopInset |
554 ^ TopInset |
546 |
555 |
556 |
565 |
557 "Created: 3.6.1996 / 10:46:41 / cg" |
566 "Created: 3.6.1996 / 10:46:41 / cg" |
558 "Modified: 3.6.1996 / 10:47:26 / cg" |
567 "Modified: 3.6.1996 / 10:47:26 / cg" |
559 ! ! |
568 ! ! |
560 |
569 |
561 !PostscriptPrinterStream class methodsFor:'queries'! |
570 !PostscriptPrinterStream class methodsFor:'queries'! |
562 |
571 |
563 printerTypeName |
572 printerTypeName |
564 "return a descriptive name" |
573 "return a descriptive name" |
565 |
574 |
566 ^ 'postscript printer' |
575 ^ 'postscript printer' |
1013 |
1022 |
1014 "Modified: 30.5.1996 / 16:48:48 / ca" |
1023 "Modified: 30.5.1996 / 16:48:48 / ca" |
1015 "Modified: 1.6.1996 / 13:15:23 / cg" |
1024 "Modified: 1.6.1996 / 13:15:23 / cg" |
1016 ! ! |
1025 ! ! |
1017 |
1026 |
1018 !PostscriptPrinterStream class methodsFor:'documentation'! |
1027 !PostscriptPrinterStream class methodsFor:'documentation'! |
1019 |
1028 |
1020 version |
1029 version |
1021 ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.39 1996-06-08 09:46:15 cg Exp $' |
1030 ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.40 1996-09-05 13:28:15 ca Exp $' |
1022 ! ! |
1031 ! ! |
1023 PostscriptPrinterStream initialize! |
1032 PostscriptPrinterStream initialize! |