"

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

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#PrintAbortDialog

	instanceVariableNames:'printer title printingPageLabel titleLabel printerLabel abort'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Printing'

!

!PrintAbortDialog 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 allow for an ongoing print operation to be canceled.

    [author:]

        Felix Madrid (fm@exept.de)

"

! !

!PrintAbortDialog class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:PrintAbortDialog andSelector:#windowSpec

     PrintAbortDialog new openInterface:#windowSpec

     PrintAbortDialog open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Printing in progress...'

          name: 'Printing in progress...'

          min: (Point 313 163)

          max: (Point 313 163)

          bounds: (Rectangle 0 0 313 163)

          icon: icon

        )

        component: 

       (SpecCollection

          collection: (

           (ActionButtonSpec

              label: 'Abort'

              name: 'Button1'

              layout: (LayoutFrame 114 0 131 0 201 0 153 0)

              translateLabel: true

              model: abort

            )

           (LabelSpec

              label: 'Job name'

              name: 'TitleLabel'

              layout: (LayoutFrame 5 0 7 0 307 0 29 0)

              style: (FontDescription Tahoma bold roman 10 #'ms-ansi')

              translateLabel: true

              postBuildCallback: titleLabelPostBuild:

            )

           (FramedBoxSpec

              label: ''

              name: 'FramedBox1'

              layout: (LayoutFrame 3 0.0 37 0.0 309 0.0 118 0.0)

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Printer:'

                    name: 'Label1'

                    layout: (LayoutFrame 1 0.0 0 0.0 52 0.0 22 0.0)

                    style: (FontDescription Tahoma bold roman 8.25 #'ms-ansi')

                    translateLabel: true

                    adjust: left

                  )

                 (LabelSpec

                    label: 'PrinterLabel'

                    name: 'PrinterLabel'

                    layout: (LayoutFrame 59 0.0 -1 0.0 281 0.0 22 0.0)

                    translateLabel: true

                    adjust: left

                    postBuildCallback: printerLabelPostBuild:

                  )

                 (LabelSpec

                    label: 'Status:'

                    name: 'PrintingPage'

                    layout: (LayoutFrame 0 0.0 28 0.0 50 0.0 50 0.0)

                    style: (FontDescription Tahoma bold roman 8.25 #'ms-ansi')

                    translateLabel: true

                    adjust: left

                  )

                 (LabelSpec

                    label: 'Page 1/N'

                    name: 'PrintingPageLabel'

                    layout: (LayoutFrame 59 0.0 28 0.0 281 0.0 50 0.0)

                    translateLabel: true

                    adjust: left

                    postBuildCallback: printingPageLabelPostBuild:

                  )

                 )

              )

            )

           )

        )

      )

! !

!PrintAbortDialog class methodsFor:'opening'!

open:aTitle printer:aPrinter 

    ^ self new open:aTitle printer:aPrinter

    "Created: / 02-08-2006 / 13:32:16 / fm"

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

! !

!PrintAbortDialog methodsFor:'aspects'!

printerLabelPostBuild:aLabel 

    printerLabel := aLabel

    "Created: / 03-08-2006 / 17:13:11 / fm"

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

!

printingPageLabelPostBuild:aLabel 

    printingPageLabel := aLabel

    "Modified: / 02-08-2006 / 13:47:33 / fm"

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

!

titleLabelPostBuild:aLabel 

    titleLabel := aLabel

    "Created: / 02-08-2006 / 13:47:42 / fm"

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

! !

!PrintAbortDialog methodsFor:'opening'!

open:aTitle printer:aPrinter 

    "Open a printer abort dialog. This dialog box

     allows the user to abort while printing."

    printer := aPrinter.

    title := aTitle.

    self openAndWaitUntilVisible.

    self updateTitle

    "Created: / 02-08-2006 / 13:06:21 / fm"

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

! !

!PrintAbortDialog methodsFor:'queries'!

shouldAbort

    ^ abort ? false

! !

!PrintAbortDialog methodsFor:'update'!

updatePrintingPageInfo:aString 

    printingPageLabel label:aString

    "Created: / 02-08-2006 / 15:56:13 / fm"

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

!

updateTitle

    titleLabel label:title.

    printerLabel label:printer printerUserFriendlyName.

    "Created: / 02-08-2006 / 13:58:47 / fm"

    "Modified: / 03-08-2006 / 17:14:16 / fm"

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

! !

!PrintAbortDialog methodsFor:'user actions'!

abort

    "The abort dialog should be closed after aborting the printing process"

    abort := true.

    printer abortPrintJob.

"/    self close.

! !

!PrintAbortDialog class methodsFor:'documentation'!

version

    ^ '$Header$'

! !