# HG changeset patch
# User ca
# Date 1195823209 -3600
# Node ID 918859a27b27452fb39fd51c1612b5b96ac55d4c
# Parent  a4128a41b721b349d5bfca113274009a036cc3c2
accessing pageCounter and titleFont used for pageNumbers...

diff -r a4128a41b721 -r 918859a27b27 WinPrinterContext.st
--- a/WinPrinterContext.st	Wed Nov 21 17:40:19 2007 +0100
+++ b/WinPrinterContext.st	Fri Nov 23 14:06:49 2007 +0100
@@ -5575,6 +5575,13 @@
 
 !WinPrinterContext::WinPrinterGraphicContext methodsFor:'accessing-hooks'!
 
+pageCounter
+    "answer the current page number"
+
+    pageCounter ~~ 0 ifTrue:[^ pageCounter].
+    ^ 1
+!
+
 pageNumberFormat:aFormatString
     "set the pageNumber format - the default is 'page %1'"
 
@@ -5788,6 +5795,8 @@
 !
 
 titleFont
+    "answer the font used for displaying page numbers..."
+
     titleFont isNil ifTrue:[
         titleFont := Font family:'helvetica' face:'medium' style:'roman' size:10.
         titleFont := titleFont onDevice:(self device).
@@ -5795,6 +5804,14 @@
     ^ titleFont
 !
 
+titleFont:aFont
+    "set the font used for displaying page numbers..."
+
+    (aFont notNil and:[aFont ~= titleFont]) ifTrue:[
+        titleFont := aFont onDevice:(self device).
+    ].
+!
+
 widthOf:aString from:index1 to:index2 inFont:aFontId
     "after retrieving the width, we have to scale the width"
 
@@ -5855,19 +5872,20 @@
     
     |oldClip oldTrans oldFont|
 
-    oldClip  := clipRect.
+    oldClip := clipRect.
+    oldClip notNil ifTrue:[ self deviceClippingRectangle:nil ].
+
     oldTrans := self translation.
     oldFont  := font.
 
     self  font:(self titleFont).
     self  translation:0.
-    super clippingRectangle:nil.
 
     aNoneArgAction value.
 
     self translation:oldTrans.
-    super clippingRectangle:oldClip.
     oldFont notNil ifTrue:[ self font:oldFont ].
+    oldClip notNil ifTrue:[ self deviceClippingRectangle:oldClip ].
 !
 
 endPage
@@ -5919,5 +5937,5 @@
 !WinPrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.29 2007-11-21 16:40:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.30 2007-11-23 13:06:49 ca Exp $'
 ! !