Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
put cleanup stuff after %%Trailer
authorClaus Gittinger <cg@exept.de>
Sat, 07 Sep 1996 16:03:38 +0200
changeset 438 c38453be27ae
parent 437 59142d78f87d
child 439 a21c1c98d9c8
put cleanup stuff after %%Trailer
PSPrStr.st file | annotate | diff | comparison | revisions
PostscriptPrinterStream.st file | annotate | diff | comparison | revisions 
--- a/PSPrStr.st	Sat Sep 07 13:30:51 1996 +0200
+++ b/PSPrStr.st	Sat Sep 07 16:03:38 1996 +0200
@@ -379,6 +379,7 @@
     tmpString :=
 '%!!PS-Adobe-2.0
 %%Creator: Smalltalk/X
+%%CreationDate: ' , AbsoluteTime now printString , '
 %%DocumentFonts: '.
 
     FontNames do:[:aName |
@@ -477,7 +478,7 @@
     "
 
     "Created: 23.4.1996 / 19:40:44 / cg"
-    "Modified: 8.6.1996 / 11:40:52 / cg"
+    "Modified: 7.9.1996 / 16:01:52 / cg"
 !
 
 initTrailer
@@ -485,10 +486,12 @@
 
         Trailer :=
 '
+%%Trailer
 EndSmalltalkDoc
 SmalltalkJob restore
 '
 
+    "Modified: 7.9.1996 / 15:56:42 / cg"
 !
 
 initialize
@@ -881,13 +884,13 @@
 
     native == true ifFalse:[
         self endPage.
+        super nextPutAllUntranslated:Trailer.
         super nextPutAllUntranslated:'%%Pages: ' , pageCount printString.
         super nextPutUntranslated:(Character cr).
-        super nextPutAllUntranslated:Trailer.
     ].
     super endPrint
 
-    "Modified: 5.9.1996 / 18:35:29 / cg"
+    "Modified: 7.9.1996 / 15:56:25 / cg"
 !
 
 startPrint
@@ -1087,6 +1090,6 @@
 !PostscriptPrinterStream  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.44 1996-09-07 11:30:51 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.45 1996-09-07 14:03:38 cg Exp $'
 ! !
 PostscriptPrinterStream initialize!
--- a/PostscriptPrinterStream.st	Sat Sep 07 13:30:51 1996 +0200
+++ b/PostscriptPrinterStream.st	Sat Sep 07 16:03:38 1996 +0200
@@ -379,6 +379,7 @@
     tmpString :=
 '%!!PS-Adobe-2.0
 %%Creator: Smalltalk/X
+%%CreationDate: ' , AbsoluteTime now printString , '
 %%DocumentFonts: '.
 
     FontNames do:[:aName |
@@ -477,7 +478,7 @@
     "
 
     "Created: 23.4.1996 / 19:40:44 / cg"
-    "Modified: 8.6.1996 / 11:40:52 / cg"
+    "Modified: 7.9.1996 / 16:01:52 / cg"
 !
 
 initTrailer
@@ -485,10 +486,12 @@
 
         Trailer :=
 '
+%%Trailer
 EndSmalltalkDoc
 SmalltalkJob restore
 '
 
+    "Modified: 7.9.1996 / 15:56:42 / cg"
 !
 
 initialize
@@ -881,13 +884,13 @@
 
     native == true ifFalse:[
         self endPage.
+        super nextPutAllUntranslated:Trailer.
         super nextPutAllUntranslated:'%%Pages: ' , pageCount printString.
         super nextPutUntranslated:(Character cr).
-        super nextPutAllUntranslated:Trailer.
     ].
     super endPrint
 
-    "Modified: 5.9.1996 / 18:35:29 / cg"
+    "Modified: 7.9.1996 / 15:56:25 / cg"
 !
 
 startPrint
@@ -1087,6 +1090,6 @@
 !PostscriptPrinterStream  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.44 1996-09-07 11:30:51 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.45 1996-09-07 14:03:38 cg Exp $'
 ! !
 PostscriptPrinterStream initialize!
hg/stx-libbasic2