code cleanup
authorClaus Gittinger <cg@exept.de>
Tue, 26 Jul 2005 10:51:00 +0200
changeset 1569 6373292f574f
parent 1568 3bca500e0c7a
child 1570 b6dd9a871cc2
code cleanup
PostscriptPrinterStream.st
--- a/PostscriptPrinterStream.st	Wed Jul 20 17:46:43 2005 +0200
+++ b/PostscriptPrinterStream.st	Tue Jul 26 10:51:00 2005 +0200
@@ -967,9 +967,7 @@
     "end a page - flush buffered text & send pageTrailer"
 
     self flushLine.
-    pageEndAction notNil ifTrue:[
-        pageEndAction value
-    ].
+    pageEndAction value.
     self nextPutAllUntranslated:PageTrailer
 
     "Modified: 23.4.1996 / 20:00:01 / cg"
@@ -1065,9 +1063,7 @@
     self nextPutAllUntranslated:'%%Page: ' , pageCount printString , ' ' , pageCount printString.
     self nextPutUntranslated:(Character cr).
 
-    pageStartAction notNil ifTrue:[
-        pageStartAction value
-    ].
+    pageStartAction value.
     self nextPutAllUntranslated:PageProlog.
     self class landscape ifTrue:[
         self nextPutAllUntranslated:'Landscape
@@ -1144,7 +1140,7 @@
 !PostscriptPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.63 2004-03-20 15:46:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.64 2005-07-26 08:51:00 cg Exp $'
 ! !
 
 PostscriptPrinterStream initialize!