# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1122367860 -7200
# Node ID 6373292f574f3a7edc494d4c993a551b38d81287
# Parent  3bca500e0c7ae8eb3f561ea4ae31e1d62d4826ea
code cleanup

diff -r 3bca500e0c7a -r 6373292f574f 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!