equal
deleted
inserted
replaced
377 |tmpString t fontNr| |
377 |tmpString t fontNr| |
378 |
378 |
379 tmpString := |
379 tmpString := |
380 '%!!PS-Adobe-2.0 |
380 '%!!PS-Adobe-2.0 |
381 %%Creator: Smalltalk/X |
381 %%Creator: Smalltalk/X |
|
382 %%CreationDate: ' , AbsoluteTime now printString , ' |
382 %%DocumentFonts: '. |
383 %%DocumentFonts: '. |
383 |
384 |
384 FontNames do:[:aName | |
385 FontNames do:[:aName | |
385 tmpString := tmpString , aName , ' ' |
386 tmpString := tmpString , aName , ' ' |
386 ]. |
387 ]. |
475 " |
476 " |
476 PostscriptPrinterStream initProlog |
477 PostscriptPrinterStream initProlog |
477 " |
478 " |
478 |
479 |
479 "Created: 23.4.1996 / 19:40:44 / cg" |
480 "Created: 23.4.1996 / 19:40:44 / cg" |
480 "Modified: 8.6.1996 / 11:40:52 / cg" |
481 "Modified: 7.9.1996 / 16:01:52 / cg" |
481 ! |
482 ! |
482 |
483 |
483 initTrailer |
484 initTrailer |
484 "define the documents epilog" |
485 "define the documents epilog" |
485 |
486 |
486 Trailer := |
487 Trailer := |
487 ' |
488 ' |
|
489 %%Trailer |
488 EndSmalltalkDoc |
490 EndSmalltalkDoc |
489 SmalltalkJob restore |
491 SmalltalkJob restore |
490 ' |
492 ' |
491 |
493 |
|
494 "Modified: 7.9.1996 / 15:56:42 / cg" |
492 ! |
495 ! |
493 |
496 |
494 initialize |
497 initialize |
495 Normal isNil ifTrue:[ |
498 Normal isNil ifTrue:[ |
496 self initFonts. |
499 self initFonts. |
879 "finish a document - finish page; then send documentTrailer. |
882 "finish a document - finish page; then send documentTrailer. |
880 Send nothing if nativePrinting." |
883 Send nothing if nativePrinting." |
881 |
884 |
882 native == true ifFalse:[ |
885 native == true ifFalse:[ |
883 self endPage. |
886 self endPage. |
|
887 super nextPutAllUntranslated:Trailer. |
884 super nextPutAllUntranslated:'%%Pages: ' , pageCount printString. |
888 super nextPutAllUntranslated:'%%Pages: ' , pageCount printString. |
885 super nextPutUntranslated:(Character cr). |
889 super nextPutUntranslated:(Character cr). |
886 super nextPutAllUntranslated:Trailer. |
|
887 ]. |
890 ]. |
888 super endPrint |
891 super endPrint |
889 |
892 |
890 "Modified: 5.9.1996 / 18:35:29 / cg" |
893 "Modified: 7.9.1996 / 15:56:25 / cg" |
891 ! |
894 ! |
892 |
895 |
893 startPrint |
896 startPrint |
894 "start a document - send documentProlog & start a page. |
897 "start a document - send documentProlog & start a page. |
895 Send nothing if nativePrinting." |
898 Send nothing if nativePrinting." |
1085 ! ! |
1088 ! ! |
1086 |
1089 |
1087 !PostscriptPrinterStream class methodsFor:'documentation'! |
1090 !PostscriptPrinterStream class methodsFor:'documentation'! |
1088 |
1091 |
1089 version |
1092 version |
1090 ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.44 1996-09-07 11:30:51 ca Exp $' |
1093 ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.45 1996-09-07 14:03:38 cg Exp $' |
1091 ! ! |
1094 ! ! |
1092 PostscriptPrinterStream initialize! |
1095 PostscriptPrinterStream initialize! |