!

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)

"

    "Private - Answer a Printer object given an hDC"

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

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

    |defaultName|

    ^ (defaultName := self defaultPrinterName) isNil 

        ifTrue:[ nil ]

        ifFalse:[ self named:defaultName ]

    "

     self default

    "

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

    "Private - answer aPoint containing the default horizontal and vertical

     margins for a page (units in inches)."

    ^ 0.5 @ 0.75

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

    "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 ]

    "

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

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

      answer the information for the default printer. "

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

    "Answer a new instance of Printer which represents

     the printer named aName as specified in the host

     Control Panel."

    ^self new printerInfoWithName: aName

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

!PrinterContext class methodsFor:'testing & examples'!

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

     using the given title & font."

   "

    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'

   "

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

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

     using the given title & font."

        printer

            print: aString

            font: aFont

            title: aTitle 

            wordWrap: wordWrap

            marginsRect: nil 

    "

     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"

        printer startPrintJob: 'Circles'.

        arrayOfPointsAndRadius

            do:[:pointAndRadius |

                printer displayCircle:(pointAndRadius at:1) 

                        radius:(pointAndRadius at:2).

            ].

        printer endPrintJob.

    "

     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"

        printer startPrintJob: 'Circles In Rectangles'.

        rectangles

           do:[:rectangle |

               printer displayCircleIn: rectangle.

           ].

       printer endPrintJob.

    "

     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"

        printer startPrintJob: 'Lines'.

        printer foreground:Color black background:Color white.

        pairOfPointsArray

            do:[:pairOfPoints |                 

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

            ].

        printer endPrintJob.

    "

     PrinterContext printLines:  

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

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

    "

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

printPolygons: polygons

    "Opens a print dialog and prints the given polygons"

        printer startPrintJob: 'Polygons'.

        printer foreground:Color black background:Color white.

        polygons

            do:[:aPolygon |

                 aPolygon displayStrokedOn: printer.

            ].

        printer endPrintJob.

    "

     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"

        printer startPrintJob: 'Rectangles'.

        rectangles 

            do:[:rectangle |

                printer displayRectangleX: rectangle origin x 

                        y: rectangle origin y 

                        width: rectangle width 

                        height: rectangle height.

            ].

        printer endPrintJob.

    "

     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:  

    "

    "Modified: / 10-10-2006 / 17:40:07 / cg"