"

 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' }"

GraphicsMedium subclass:#PrinterContext

	instanceVariableNames:'abort jobid printerInfo textAlign'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Printing'

!

!PrinterContext 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.

"

!

documentation

"

    I am the mediator between the smalltalk printing protocol 

    (which is the same as the graphics drawing protocol) and the

    windows printer.

    When youopena printer, you will typically talk to me, and I will

    forward the graphics commands to my printer.

    [author:]

        Felix Madrid (fm@exept.de)

"

! !

!PrinterContext class methodsFor:'instance creation'!

fromPrinterInfo: aPrinterInfo

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:56:56 / cg"

! !

!PrinterContext class methodsFor:'accessing'!

default

    "Answer the default Printer, or nil if none."

    |defaultName|

    ^ (defaultName := self defaultPrinterName) isNil 

        ifTrue:[ nil ]

        ifFalse:[ self named:defaultName ]

    "

     self default

    "

    "Created: / 27-07-2006 / 17:51:43 / fm"

    "Modified: / 02-08-2006 / 17:27:09 / fm"

    "Modified: / 10-10-2006 / 17:30:31 / cg"

!

defaultMargins

    "Private - answer aPoint containing the default horizontal and vertical

     margins for a page (units in inches)."

    ^ 0.5 @ 0.75

    "Created: / 01-08-2006 / 16:09:31 / fm"

    "Modified: / 10-10-2006 / 17:30:49 / cg"

!

defaultPrinterName

    "Answer the name of the default printer, or nil if none."

    |printerInfo printerName|

    printerInfo := OperatingSystem getDefaultPrinterName.

    printerName := (printerInfo copyFrom:1 to:(printerInfo indexOf:$,) - 1) trimBlanks.

    ^ printerName size == 0 ifTrue:[ nil ] ifFalse:[ printerName ]

    "

     PrinterContext defaultPrinterName

    "

    "Modified: / 02-08-2006 / 17:26:09 / fm"

    "Modified: / 10-10-2006 / 17:32:45 / cg"

!

getPrinterInformation:printerNameString 

    " Answer the printer information for the printer named printerNameString.  If no name is specified,

      answer the information for the default printer."

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:56:31 / cg"

!

named: aName

    "Answer a new instance of Printer which represents

     the printer named aName as specified in the host

     Control Panel."

    aName isNil ifTrue: [ ^self default ].

    ^self new printerInfoWithName: aName

    "Created: / 27-07-2006 / 17:51:27 / fm"

    "Modified: / 02-08-2006 / 17:26:29 / fm"

    "Modified: / 10-10-2006 / 17:33:29 / cg"

!

printerNames

    "Answer a collection of all known printer names."

    ^ OperatingSystem getPrintersNames

    "Created: / 27-07-2006 / 17:54:45 / fm"

    "Modified: / 10-10-2006 / 18:57:51 / cg"

! !

!PrinterContext methodsFor:'abort handling'!

abortPrintJob

    "Abort the current print job."

    abort := true.

    jobid := nil.

    "Modified: / 02-08-2006 / 15:40:26 / fm"

    "Modified: / 10-10-2006 / 18:13:45 / cg"

!

aborted

    "Answer whether the user aborted from PrintAbortDialog."

    ^ abort

    "Created: / 27-07-2006 / 10:20:10 / fm"

    "Modified: / 10-10-2006 / 18:13:50 / cg"

! !

!PrinterContext methodsFor:'accessing'!

container

    ^self

!

getCharHeight

    "Private - answer the height of the font selected in the receiver's

     device context."

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:50:06 / cg"

!

horizontalPixelsPerMeter

    "Answer horizontal pixels per meter on the screen."

    ^self pixelsPerInchOfScreenWidth  * 39.3700787

    "Modified: / 16-04-2007 / 12:55:21 / cg"

!

name

    "Answer the receiver's name from the current printerInfo."

    ^ self printerInfo printerName

    "Modified: / 02-08-2006 / 16:55:03 / fm"

    "Modified: / 10-10-2006 / 18:15:33 / cg"

!

name:aName 

    "Set the receiver's printer name to aName."

    self printerInfo:(self class getPrinterInformation:aName)

    "Modified: / 10-10-2006 / 18:15:36 / cg"

!

numberOfColorBitsPerPixel

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:51:15 / cg"

!

physicalOffsetX

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:54:23 / cg"

!

physicalOffsetY

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:52:17 / cg"

!

pixelsPerInchOfScreenHeight

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:54:17 / cg"

!

pixelsPerInchOfScreenWidth

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:54:15 / cg"

!

printerHeightArea

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:52:28 / cg"

!

printerInfo

    ^ printerInfo

    "Created: / 02-08-2006 / 16:55:17 / fm"

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

!

printerInfo:aPrinterInfo 

    printerInfo := aPrinterInfo

    "Modified: / 16-04-2007 / 12:54:07 / cg"

!

printerInfoWithName:aName 

    self printerInfo:(self class getPrinterInformation:aName).

    "Modified: / 16-04-2007 / 12:54:04 / cg"

!

printerPhysicalHeight

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:54:00 / cg"

!

printerPhysicalWidth

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:53:56 / cg"

!

printerUserFriendlyName

    "Answer the receiver's name from the current printerInfo."

    ^ self printerInfo userFriendlyName

    "Created: / 03-08-2006 / 12:55:57 / fm"

    "Modified: / 10-10-2006 / 18:18:55 / cg"

!

printerWidthArea

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:53:51 / cg"

!

setPrinterFont:aFont 

    self font: aFont

    "Created: / 27-11-2006 / 14:50:55 / User"

!

setTextAlign:aNumber

    textAlign :=aNumber.

    "Modified: / 16-04-2007 / 12:53:26 / cg"

!

setViewportOrg: aPoint

    self subclassResponsibility

    "Modified: / 16-04-2007 / 12:53:44 / cg"

!

verticalPixelsPerMeter

    "Answer vertical pixels per meter on the screen."

    ^self pixelsPerInchOfScreenHeight * 39.3700787

    "Modified: / 16-04-2007 / 12:54:43 / cg"

! !

!PrinterContext methodsFor:'initialization & release'!

buildPrinter

    "Private - create all the operating system resources needed."

    self

        createDC;

        initExtent

    "Created: / 27-07-2006 / 10:20:36 / fm"

    "Modified: / 01-08-2006 / 15:57:49 / fm"

    "Modified: / 10-10-2006 / 18:14:04 / cg"

!

createDC

    "Private - Create a device context for the receiver"

    self subclassResponsibility

    "Created: / 27-07-2006 / 10:21:05 / fm"

    "Modified: / 02-08-2006 / 17:30:47 / fm"

    "Modified: / 16-04-2007 / 12:49:22 / cg"

!

initExtent

    "Private - init the width and height of GraphicsTool for the receiver."

    width := self printerWidthArea.

    height := self printerHeightArea.

    device

        width:width;

        height:height.

    "Modified: / 01-08-2006 / 16:14:49 / fm"

! !

!PrinterContext methodsFor:'printing'!

print:aString font:aFont title:aTitle wordWrap:wordWrapBoolean marginsRect:aMarginsRect 

    "Answer the receiver.  Output the receiver string to

     the printer using aFont.  A Print abort dialog box will be opened

     with aTitle.  If collateBoolean is true, collate output, otherwise

     do not.  Print copiesInteger copies of the specified string.  If

     wordWrapBoolean is true, word wrap the lines, otherwise do not.

     Left, top, right & bottom margins are specified in inches in

     aMarginsRect."

    |lines linesPerPage totalPage marginsRect firstPage abortDialog|

    jobid isNil ifTrue:[

        self startPrintJob:aTitle

    ].

    abortDialog := PrintAbortDialog new open:aTitle printer:self.

    self font:aFont.

    marginsRect := self marginsRectangleFor:aMarginsRect.

    lines := self 

                asArrayOfStringLines:aString

                in:marginsRect

                wordWrap:wordWrapBoolean.

    linesPerPage := self linesPerPageFor: marginsRect.

    totalPage := (lines size + linesPerPage - 1) // linesPerPage.

    firstPage := true.

"/    collateBoolean

"/        ifTrue: [

"/            copiesInteger timesRepeat: [

    1 to:totalPage do:[:page | 

        abort ifTrue:[ ^ self ].

        firstPage ifFalse:[

            self formFeed

        ].

        abortDialog 

            updatePrintingPageInfo:(self class classResources

                                    string:'Page %1/%2'

                                    with:page printString

                                    with:totalPage printString).

"/      self device font: printerFont.

        self font:aFont.

        self 

            printPage:page

            in:marginsRect

            lines:lines

            linesPerPage:linesPerPage.

        firstPage := false

    ].

"/            ] 

"/        ] ifFalse: [

"/            1 to: totalPage do: [ :page |

"/                copiesInteger timesRepeat: [

"/                    abort ifTrue: [ ^self endPrintJob ].

"/                    firstPage ifFalse: [ self formFeed ].

"/                    self device font: printerFont.

"/                    self printPage: page in: marginsRect lines: lines linesPerPage: linesPerPage.

"/                    firstPage := false 

"/                 ] 

"/            ]   

"/        ].

    jobid notNil ifTrue:[

        self endPrintJob.

        abortDialog close.

    ].

    "/    abort ifFalse: [ abortDialog close ]

    "Created: / 03-08-2006 / 16:13:33 / fm"

    "Modified: / 04-08-2006 / 13:40:02 / fm"

    "Modified: / 10-10-2006 / 18:16:54 / cg"

    "Modified: / 12-10-2006 / 11:50:37 / User"

!

print: aString

    pageHeader: aString2

    font: aFont

    title: aTitle

    collate: collateBoolean

    copies: copiesInteger

    wordWrap: wordWrapBoolean

    marginsRect: aMarginsRect

        "Private - Answer the receiver.  Output the receiver string to

        the printer using aFont.  A Print abort dialog box will be opened

        with aTitle.  If collateBoolean is true, collate output, otherwise

        do not.  Print copiesInteger copies of the specified string.  If

        wordWrapBoolean is true, word wrap the lines, otherwise do not.

        Left, top, right & bottom margins are specified in inches in

        aMarginsRect.

        Mg: Erweitert um pageHeader"

       "Changed by K3/EES5-Mg, 08.01.96"

    | lines linesPerPage totalPage marginsRect firstPage charHeight  printerFont headerLines|

    printerFont := self setPrinterFont: aFont.

    charHeight := self "pen" getCharHeight.

    marginsRect := self marginsRectangleFor: aMarginsRect.

    lines := self "pen" asArrayOfStringLines: aString in: marginsRect wordWrap: wordWrapBoolean.

    headerLines := self "pen" asArrayOfStringLines: aString2 in: marginsRect wordWrap: wordWrapBoolean.

    linesPerPage := marginsRect bottom - marginsRect top // charHeight.

    linesPerPage > headerLines size

        ifFalse:

          [Dialog information: 'Der Dokumentenkopf ist zu groß; wird ignoriert!!'.

           headerLines := #().

          ]

        ifTrue: [linesPerPage := linesPerPage - headerLines size].

    totalPage := lines size + linesPerPage - 1 // linesPerPage.

    firstPage := true.

"/    collateBoolean

"/        ifTrue: [

"/            copiesInteger timesRepeat: [

                1 to: totalPage do: [ :page |

                    abort ifTrue: [ ^self endPrintJob ].

                    firstPage ifFalse: [ self formFeed ].

                    self "pen" font: aFont "printerFont".

                    self printPage: page in: marginsRect lines: lines headerLines: headerLines linesPerPage: linesPerPage.

                    firstPage := false ] 

"/              ] 

"/          ]

"/        ifFalse: [

"/            1 to: totalPage do: [ :page |

"/                copiesInteger timesRepeat: [

"/                    abort ifTrue: [ ^self endPrintJob ].

"/                    firstPage ifFalse: [ self formFeed ].

"/                    self "pen" font: printerFont.

"/                    self printPage: page in: marginsRect lines: lines headerLines: headerLines linesPerPage: linesPerPage.

"/                    firstPage := false ] ] ].

    "Created: / 30-11-2006 / 13:19:06 / User"

!