hg/stx-libview2: comparison WinPrinterContext.st

equal deleted inserted replaced

-:108b53ed090f
+:f27814c1b52a
 "{ Package: 'stx:libview2' }"
 "{ NameSpace: Smalltalk }"
 PrinterContext subclass:#WinPrinterContext
-	instanceVariableNames:'deviceFonts hatch supportsColor'
+	instanceVariableNames:'deviceFonts hatch supportsColor title'
 	classVariableNames:'PostScriptBlackWhite'
 	poolDictionaries:''
 	category:'Interface-Printing'
 !
 WinPrinterContext subclass:#WinPrinterGraphicContext
 	instanceVariableNames:'fontScale printPageNumbers pageNumberFormat pageCounter
-		needsEndOfPage titleFont'
+		needsEndOfPage titleFont width height'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:WinPrinterContext
 !
 printerInfo := PrintingDialog getPrinterInfoWithoutDialog:withoutDialog.
 printerInfo isNil ifTrue:[^ nil].
 gc := WinPrinterGraphicContext fromPrinterInfo:printerInfo.
 gc notNil ifTrue:[
-gc startPrintJob:jobName
+	gc startPrintJob:jobName
 ].
 ^ gc
 ! !
 !WinPrinterContext class methodsFor:'accessing'!
 startPrintJob:aString fileName:aFileName
 "Start a print job, using aString as the job title; everything
 drawn between startPrintJob and endPrintJob will become
 one entry in the print queue."
-|docInfoStruct nameAddress title fileNameAddress|
+|docInfoStruct nameAddress fileNameAddress|
 self gcId isNil ifTrue:[
-	self buildPrinter
+self buildPrinter
 ].
 abort := false.
 title := aString ? 'Smalltalk/X'.
 nameAddress := title asExternalBytes unprotectFromGC.
 aFileName isNil ifFalse:[
-	fileNameAddress := aFileName pathName asExternalBytes unprotectFromGC
+fileNameAddress := aFileName pathName asExternalBytes unprotectFromGC
 ].
 docInfoStruct := Win32OperatingSystem::DocInfoStructure new.
 docInfoStruct
-	cbSize:docInfoStruct sizeInBytes;
+cbSize:docInfoStruct sizeInBytes;
-	lpszDocName:nameAddress address.
+lpszDocName:nameAddress address.
 fileNameAddress isNil ifFalse:[
-	docInfoStruct lpszOutput:fileNameAddress address
+docInfoStruct lpszOutput:fileNameAddress address
 ].
 jobid := OperatingSystem startDoc:self gcId docInfo:docInfoStruct.
 jobid > 0 ifFalse:[
-	jobid = -1 ifTrue:[
+jobid = -1 ifTrue:[
-	    abort := true.
+abort := true.
-	    ^ nil
+^ nil
-	].
+].
 "/        ^ self error
-	OpenError raiseErrorString:'Cannot create printer job'.
+OpenError raiseErrorString:'Cannot create printer job'.
 ].
 self startPage
 "Created: / 27-07-2006 / 18:19:31 / fm"
 "Modified: / 03-08-2006 / 15:11:19 / fm"
 "return the papers bottom margin measured in pixels"
 ^ 50
 !
+extent
+^ width @ height
+!
+height
+^ height
+!
 leftMargin
 "return the papers left margin measured in pixels"
 ^ 50
 !
 topMargin
 "return the papers top margin measured in pixels"
 ^ 50
+!
+width
+^ width
 ! !
 !WinPrinterContext::WinPrinterGraphicContext methodsFor:'accessing-hooks'!
 pageCounter
 scale:aScale
 "set the scale and add the fontScale factor"
 super scale:(fontScale * (aScale ? 1.0)).
+!
+scale:scale translation:aPoint
+self
+translation:aPoint;
+scale:scale.
 !
 transformation
 "answer the transformation excluding the fontScale factor"
 !
 initialize
 super initialize.
+device := nil.      "super initialize did set it to Screen current"
 pageCounter    := 0.
 needsEndOfPage := false.
 printPageNumbers := true.
 Language == #de ifTrue:[ pageNumberFormat := 'Seite %1' ]
-		   ifFalse:[ pageNumberFormat := 'page %1'  ].
+ifFalse:[ pageNumberFormat := 'page %1'  ].
 ! !
 !WinPrinterContext::WinPrinterGraphicContext methodsFor:'printing process'!
 displayTitleDo:aNoneArgAction
 |oldClip oldTrans oldFont|
 oldClip := gc clipingRectangleOrNil.
-oldClip notNil ifTrue:[ self deviceClippingRectangle:nil ].
+oldClip notNil ifTrue:[ self deviceClippingBounds:nil ].
 oldTrans := self translation.
 oldFont  := self font.
 self  font:(self titleFont).
 aNoneArgAction value.
 self translation:oldTrans.
 oldFont notNil ifTrue:[ self font:oldFont ].
-oldClip notNil ifTrue:[ self deviceClippingRectangle:oldClip ].
+oldClip notNil ifTrue:[ self deviceClippingBounds:oldClip ].
 !
 endPage
 "ends the current page
 if the current page is already closed by endPage, the request will be ignored"
 |s|
 needsEndOfPage ifFalse:[
-	^ self
+^ self
 ].
 needsEndOfPage := false.
 printPageNumbers == true ifTrue:[
-	self displayTitleDo:[
+self displayTitleDo:[
-	    s := pageNumberFormat bindWith:pageCounter.
+self displayString:title
+x:(self extent x - (self font widthOf:title)) // 2
-	    self displayString:s
+y:(self extent y + (self font ascent)).
+s := pageNumberFormat bindWith:pageCounter.
+self displayString:s
 			     x:(self extent x - (self font widthOf:s))
 			     y:(self extent y + (self font ascent)).
-	]
+]
 ].
 super endPage.
 !
 startPage

branch	jv
changeset 3720	f27814c1b52a
parent 3528	378efd6fd2f1
parent 3719	a36b0c184dcb
child 3722	6d604bcf36f3