"

 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:'name 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

    | aPrinter hDC|     

    hDC := aPrinterInfo createDC.

    hDC = 0 ifTrue: [ ^self error: 'Error while opening printer.' ].

    aPrinter := self new.

    aPrinter printerInfo: aPrinterInfo.

    aPrinter setDevice:(WinPrinter on: aPrinterInfo) id:nil gcId:hDC.

    aPrinter initExtent.

    ^aPrinter

    "Created: / 03-08-2006 / 12:53:52 / fm"

    "Modified: / 04-08-2006 / 12:55:01 / fm"

    "Modified: / 10-10-2006 / 19:05:07 / 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."

    |h|

    h := OperatingSystem openPrinter:printerNameString.

    ^ OperatingSystem 

        getDocumentProperties:nil

        hPrinter:h

        pDeviceName:printerNameString.

    "Created: / 27-07-2006 / 10:22:32 / fm"

    "Modified: / 01-08-2006 / 16:01:44 / fm"

    "Modified: / 10-10-2006 / 18:57:45 / 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 class methodsFor:'testing & examples'!

print: aString font: aFont title: aTitle

    "Open a print dialog to allow printing of the given string

     using the given title & font."

    self print: aString font: aFont title: aTitle wordWrap: false     

   "

    PrinterContext print: 'Holaaaa!! (from:  PrinterContext>>print:aString font:aFont title:aTitle)' font: nil title: 'Printing Test'

    PrinterContext print: self printingTestString font: nil title: 'Printing Test String'

    PrinterContext print: self printingTestString font: (Font family:'Arial' face:'medium' size:8) title: 'Printing Test String'

   "

    "Created: / 27-07-2006 / 17:52:33 / fm"

    "Modified: / 03-08-2006 / 18:52:31 / fm"

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

!

print: aString font: aFont title: aTitle wordWrap: wordWrap

    "Open a print dialog to allow printing of the given string

     using the given title & font."

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer

            print: aString

            font: aFont

            title: aTitle 

            wordWrap: wordWrap

            marginsRect: nil 

    ] forkAt: 3

    "

     PrinterContext print: 'Holaaaa!! (from:  PrinterContext>>print:aString font:aFont title:aTitle)' font: nil title: 'Printing Test' wordWrap: true

     PrinterContext print: (PrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font:nil title:'Printing Test String' wordWrap:true

     PrinterContext print: (PrinterContext class sourceCodeAt:#'print:font:title:wordWrap:') font: (Font family:'Arial' face:'medium' size:8) title: 'Printing Test String' wordWrap: true

    "

    "Created: / 03-08-2006 / 18:51:53 / fm"

    "Modified: / 10-10-2006 / 17:42:06 / cg"

!

printCircles: arrayOfPointsAndRadius

    "Opens a print dialog and prints the given circles"

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer startPrintJob: 'Circles'.

        arrayOfPointsAndRadius

            do:[:pointAndRadius |

                printer displayCircle:(pointAndRadius at:1) 

                        radius:(pointAndRadius at:2).

            ].

        printer endPrintJob.

    ] forkAt: 3

    "

     PrinterContext printCircles:  

        (Array with: (Array with: 800@800 with: 600)

               with: (Array with: 1500@1500 with: 1000)

               with: (Array with: 4000@2500 with: 2000))

    "

    "Created: / 07-08-2006 / 11:46:52 / fm"

    "Modified: / 10-10-2006 / 17:36:23 / cg"

!

printCirclesIn: rectangles

    "Opens a print dialog and prints the given circles"

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer startPrintJob: 'Circles In Rectangles'.

        rectangles

           do:[:rectangle |

               printer displayCircleIn: rectangle.

           ].

       printer endPrintJob.

    ] forkAt: 3

    "

     PrinterContext printCirclesIn:  

        (Array with: (Rectangle left:20 top:20 width:400 height:600)

               with: (Rectangle left:40 top:40 width:600 height:400)    

        )

    "

    "Created: / 07-08-2006 / 11:48:46 / fm"

    "Modified: / 10-10-2006 / 17:38:28 / cg"

!

printLines: pairOfPointsArray

    "Opens a print dialog and prints the given lines"

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer startPrintJob: 'Lines'.

        printer foreground:Color black background:Color white.

        pairOfPointsArray

            do:[:pairOfPoints |                 

                 printer displayLineFrom: (pairOfPoints at:1)  to: (pairOfPoints at:2).

            ].

        printer endPrintJob.

    ] forkAt: 3

    "

     PrinterContext printLines:  

        (Array with: (Array with:10@10 with:100@10)

               with: (Array with:10@10 with:35@200))

    "

    "Created: / 07-08-2006 / 12:09:48 / fm"

    "Modified: / 07-08-2006 / 14:11:17 / fm"

    "Modified: / 10-10-2006 / 17:38:44 / cg"

!

printPolygons: polygons

    "Opens a print dialog and prints the given polygons"

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer startPrintJob: 'Polygons'.

        printer foreground:Color black background:Color white.

        polygons

            do:[:aPolygon |

                 aPolygon displayStrokedOn: printer.

            ].

        printer endPrintJob.

    ] forkAt: 3

    "

     PrinterContext printPolygons:  

        (Array with: (Polygon vertices:(

                                Array

                                    with:10@10

                                    with:60@10

                                    with:35@60)))

    "

    "Created: / 07-08-2006 / 12:09:48 / fm"

    "Modified: / 07-08-2006 / 14:11:17 / fm"

    "Modified: / 10-10-2006 / 17:39:23 / cg"

!

printRectangles: rectangles

    "Opens a print dialog and prints the given rectangles"

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer startPrintJob: 'Rectangles'.

        rectangles 

            do:[:rectangle |

                printer displayRectangleX: rectangle origin x 

                        y: rectangle origin y 

                        width: rectangle width 

                        height: rectangle height.

            ].

        printer endPrintJob.

    ] forkAt: 3

    "

     PrinterContext printRectangles:  

        (Array with: (Rectangle left:20 top:20 width:400 height:600)

               with: (Rectangle left:40 top:40 width:600 height:400)    

        )

    "

    "Created: / 07-08-2006 / 11:40:48 / fm"

    "Modified: / 10-10-2006 / 17:39:51 / cg"

!

printStrings: stringAndPositionsArray

    "Opens a print dialog and prints the given strings"

    | printerInfo printer |

    printerInfo := PrintingDialog getPrinterInfo.

    printerInfo isNil ifTrue:[^self].

    printer := self fromPrinterInfo: printerInfo.

    [ 

        printer startPrintJob: 'Strings with Position'.

        printer foreground:Color black background:Color white.

        stringAndPositionsArray

            do:[:pairOfPointsAndPosition |                 

                 printer displayString:(pairOfPointsAndPosition at: 1) 

                            x:(pairOfPointsAndPosition at: 2) x

                            y:(pairOfPointsAndPosition at: 2) y

            ].

        printer endPrintJob.

    ] forkAt: 3

    "

     PrinterContext printStrings:  

        (Array with: (Array with:'Testing printing with standart method' with:10@10)

               with: (Array with:'Another test string to print' with:80@200))

    "

    "Created: / 07-08-2006 / 12:09:48 / fm"

    "Modified: / 07-08-2006 / 14:11:17 / fm"

    "Modified: / 10-10-2006 / 17:40:07 / 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."

    |textMetrics answer|

    textMetrics := Win32OperatingSystem::TextMetricsStructure new.

"/    (OperatingSystem getTextMetrics:gcId lpMetrics:textMetrics) ifFalse:[ ^ self error ].

"/    Transcript showCR: 'CHAR HEIGHT PRIM ******* ', '   ',  (textMetrics tmHeight + textMetrics tmExternalLeading) printString.

"/    Transcript showCR: 'CHAR HEIGHT DEVICE ***** ', '   ', (self font heightOf:'PQWEXCZ' on:self device) printString.

    answer := (self font heightOf:'PQWEXCZ' on:self device).

"/    answer := textMetrics tmHeight + textMetrics tmExternalLeading.

    ^answer 

    "Created: / 02-08-2006 / 17:47:20 / fm"

    "Modified: / 03-08-2006 / 10:09:01 / fm"

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

!

horizontalPixelsPerMeter

        "Answer horizontal pixels per meter

        on the screen."

    ^self pixelsPerInchOfScreenWidth  * 39.3700787

!

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

    ^ OperatingSystem getDeviceCaps:gcId index:12 "Bitspixel"

    "Created: / 03-08-2006 / 09:58:18 / fm"

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

!

physicalOffsetX

        "Papierhöhe in Pixels"

       "Changed by K3/EEZ3-Mg, 02.03.99"

    ^ OperatingSystem getDeviceCaps:gcId index:112 "PhysicalOffsetX"

    "Created: / 01-08-2006 / 16:28:34 / fm"

!

physicalOffsetY

        "Papierhöhe in Pixels"

       "Changed by K3/EEZ3-Mg, 02.03.99"

    ^ OperatingSystem getDeviceCaps:gcId index:113 "PhysicalOffsetY"

    "Created: / 01-08-2006 / 16:28:34 / fm"

!

pixelsPerInchOfScreenHeight

    ^ OperatingSystem getDeviceCaps:gcId index:90 "Logpixelsy"

    "Created: / 01-08-2006 / 16:29:16 / fm"

!

pixelsPerInchOfScreenWidth

    ^ OperatingSystem getDeviceCaps:gcId index:88 "Logpixelsx"

    "Created: / 01-08-2006 / 16:28:34 / fm"

!