"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libview2' }"

PrinterStream subclass:#WinPrinterStream

	instanceVariableNames:'printerContext printJobName printFileName currentLineBuffer

		currentPageBuffer cX cY colNr lineNr pageCount heightOfFont

		jobStarted pageStarted'

	classVariableNames:'PrinterInfo'

	poolDictionaries:''

	category:'Interface-Printing'

!

!WinPrinterStream class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!WinPrinterStream class methodsFor:'instance creation'!

new

    | printerContext |

    PrinterInfo := PrintingDialog getPrinterInfo.

    PrinterInfo isNil ifTrue:[

        "/ cancelled

        AbortSignal raiseRequest.

        ^nil

    ].

    printerContext := WinPrinterContext fromPrinterInfo: PrinterInfo.

    ^ self basicNew printerContext:printerContext.

    "Modified: / 12-10-2006 / 10:07:36 / fm"

    "Modified: / 16-04-2007 / 12:58:13 / cg"

!

newForFile:aFileNameOrNil

    "return a new stream for printing into aFileName"

    |printer|

    printer := self basicNew initialize.

    printer setPrintFileName:aFileNameOrNil.

    printer startPrint.

    ^ printer

    "Modified: / 12-10-2006 / 14:35:09 / fm"

    "Modified: / 16-04-2007 / 12:58:18 / cg"

!

newNative

    self halt:'unimpleemnted feature'

! !

!WinPrinterStream class methodsFor:'class initialization'!

initialize

    "in some configurations (expecco), libview2 is loaded lazy and later,

     and the printer is setup to be PrinterStream (which is stupid).

     Here, we install ourself."

    (Printer isNil or:[Printer == PrinterStream]) ifTrue:[

        Printer := self.

    ].

    "Created: / 09-02-2011 / 13:46:27 / cg"

! !

!WinPrinterStream class methodsFor:'queries'!

isDrivenByCommand

    "return true if this printer is driven via an OS-command

     (as opposed to writing a file or using a native printing API)"

    ^ false

    "Created: / 10-10-2006 / 18:22:13 / cg"

!

printerTypeName

    "return a descriptive name"

    ^ 'Windows Printer'

    "Created: / 10-10-2006 / 18:26:22 / cg"

    "Modified: / 08-11-2007 / 12:13:59 / cg"

!

supportsPrintingToCommand

    ^ false

    "Created: / 10-10-2006 / 18:27:16 / cg"

!

supportsPrintingToFile

    ^ false

    "Created: / 10-10-2006 / 18:27:16 / cg"

! !

!WinPrinterStream methodsFor:'accessing'!

fontWidthForTabComputing

    ^ 120

    "Created: / 12-10-2006 / 11:59:33 / fm"

    "Modified: / 16-04-2007 / 13:00:05 / cg"

!

hasJobStarted

    ^jobStarted = true

    "Created: / 12-10-2006 / 14:38:00 / fm"

    "Modified: / 16-04-2007 / 13:00:26 / cg"

!

hasPageStarted

    ^pageStarted = true

    "Created: / 12-10-2006 / 14:41:39 / fm"

    "Modified: / 16-04-2007 / 13:00:32 / cg"

!

heightOfFont

    heightOfFont isNil ifTrue:[heightOfFont := printerContext getCharHeight].

    ^heightOfFont

    "Created: / 12-10-2006 / 12:00:57 / fm"

    "Modified: / 16-04-2007 / 13:00:35 / cg"

!

linesPerPage

    ^printerContext linesPerPageFor: nil

    "Created: / 12-10-2006 / 11:57:53 / fm"

    "Modified: / 16-04-2007 / 13:00:38 / cg"

!

printerContext:something

    printerContext := something.

! !

!WinPrinterStream methodsFor:'open/close'!

endPage

    printerContext endPage.

    pageStarted := false.

    "Created: / 12-10-2006 / 14:42:18 / fm"

    "Modified: / 16-04-2007 / 12:58:33 / cg"

!

endPrint

    printerContext endPrintJob.

    jobStarted := false.

    "Created: / 10-10-2006 / 18:50:05 / cg"

    "Modified: / 12-10-2006 / 14:41:11 / fm"

    "Modified: / 16-04-2007 / 12:58:36 / cg"

!

formFeed

    printerContext formFeed.

    self resetPage

    "Created: / 12-10-2006 / 10:41:40 / fm"

    "Modified: / 12-10-2006 / 14:40:53 / fm"

    "Modified: / 16-04-2007 / 13:00:21 / cg"

!

startPage

    printerContext startPage.

    pageStarted := true.

    self resetPage

    "Created: / 12-10-2006 / 14:39:27 / fm"

    "Modified: / 16-04-2007 / 13:00:58 / cg"

!

startPrint

    printerContext isNil ifTrue:[

        PrinterInfo isNil ifTrue:[

            PrinterInfo := PrintingDialog getPrinterInfo.

            PrinterInfo isNil ifTrue:[^self].

        ].

        printerContext := WinPrinterContext fromPrinterInfo: PrinterInfo.

    ].

    printerContext foreground:(Color black) background:(Color white).

    self resetPage.

    printerContext startPrintJob: (printJobName ? 'ST/X PrintJob') fileName:printFileName.

    pageCount := 1.

    jobStarted := true.

    pageStarted := true.

    "Created: / 10-10-2006 / 18:49:55 / cg"

    "Modified: / 12-10-2006 / 15:25:29 / fm"

    "Modified: / 16-04-2007 / 13:01:01 / cg"

! !

!WinPrinterStream methodsFor:'private'!

resetPage

    cX := cY := colNr := lineNr := 0.

    "Created: / 12-10-2006 / 14:40:23 / fm"

    "Modified: / 16-04-2007 / 13:00:52 / cg"

!

setPrintFileName:something

    printFileName := something.

    "Created: / 10-10-2006 / 19:07:16 / cg"

! !

!WinPrinterStream methodsFor:'writing'!

cr

    self hasJobStarted ifFalse:[self startPrint].

    self hasPageStarted ifFalse:[self startPage].

    colNr := 0.

    lineNr := lineNr + 1.

    cX := 0 "+ self leftX".

    cY := cY + self heightOfFont.

    lineNr >= self linesPerPage ifTrue:[

            pageCount := pageCount + 1.

            self endPage

    ].

    "Modified: / 12-10-2006 / 14:42:57 / fm"

    "Modified: / 16-04-2007 / 12:58:30 / cg"

!

nextPut:aCharacter

    self hasJobStarted ifFalse:[self startPrint].

    self hasPageStarted ifFalse:[self startPage].

    aCharacter codePoint < 16r20 ifTrue:[

        aCharacter == Character cr ifTrue:[

            self cr.    

        ].

        aCharacter == Character tab ifTrue:[

           colNr := ((colNr + 8) // 8) * 8. 

           cX := "self leftX +" (colNr * self fontWidthForTabComputing).

           ^ self

        ].

        aCharacter == Character newPage ifTrue:[

            self endPage. 

        ].

        ^ self.

    ].

    printerContext displayString:aCharacter asString x:cX y:cY.

    colNr := colNr + 1.

    cX := cX + (printerContext stringWidthOf: aCharacter asString).

    "Modified: / 12-10-2006 / 15:06:14 / fm"

    "Modified: / 16-04-2007 / 13:00:44 / cg"

!

nextPutAll:aString

    self hasJobStarted ifFalse:[self startPrint].

    self hasPageStarted ifFalse:[self startPage].

    (aString contains:[:char | char codePoint < 16r20]) ifTrue:[

        super nextPutAll:aString.

        ^ self.

    ].

    #TODO. "/ use aString, when problem with Text-extent is fixed... 

    printerContext displayString: aString string x:cX y:cY.

    colNr := colNr + aString size.

    cX := cX + (printerContext stringWidthOf: aString string).

    "Modified: / 12-10-2006 / 15:21:02 / fm"

    "Modified: / 16-04-2007 / 13:00:46 / cg"

! !

!WinPrinterStream class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterStream.st,v 1.10 2011-02-09 12:47:02 cg Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/libview2/WinPrinterStream.st,v 1.10 2011-02-09 12:47:02 cg Exp $'

! !

WinPrinterStream initialize!