diff -r baba86518fd9 -r ae76cdc6787a WinPrinterContext.st --- a/WinPrinterContext.st Mon Jul 18 14:14:06 2016 +0200 +++ b/WinPrinterContext.st Tue Jul 19 21:45:55 2016 +0200 @@ -9,6 +9,8 @@ other person. No title to or ownership of the software is hereby transferred. " +'From Smalltalk/X, Version:7.1.0.0 on 18-07-2016 at 13:47:02' ! + "{ Package: 'stx:libview2' }" "{ NameSpace: Smalltalk }" @@ -22,7 +24,7 @@ WinPrinterContext subclass:#WinPrinterGraphicContext instanceVariableNames:'fontScale printPageNumbers pageNumberFormat pageCounter - needsEndOfPage titleFont' + needsEndOfPage titleFont width height' classVariableNames:'' poolDictionaries:'' privateIn:WinPrinterContext @@ -294,7 +296,7 @@ gc := WinPrinterGraphicContext fromPrinterInfo:printerInfo. gc notNil ifTrue:[ - gc startPrintJob:jobName + gc startPrintJob:jobName ]. ^ gc ! ! @@ -5689,6 +5691,14 @@ ^ 50 ! +extent + ^ width @ height +! + +height + ^ height +! + leftMargin "return the papers left margin measured in pixels" @@ -5705,6 +5715,10 @@ "return the papers top margin measured in pixels" ^ 50 +! + +width + ^ width ! ! !WinPrinterContext::WinPrinterGraphicContext methodsFor:'accessing-hooks'!