PrintAbortDialog.st
changeset 3252 5036ab52712f
parent 3228 1903c2ccb97f
child 5580 3f24169c2d32
equal deleted inserted replaced
3251:29b44f456526 3252:5036ab52712f
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libwidg2' }"
    12 "{ Package: 'stx:libwidg2' }"
    13 
    13 
    14 ApplicationModel subclass:#PrintAbortDialog
    14 ApplicationModel subclass:#PrintAbortDialog
    15 	instanceVariableNames:'printer title printingPageLabel titleLabel printerLabel'
    15 	instanceVariableNames:'printer title printingPageLabel titleLabel printerLabel abort'
    16 	classVariableNames:''
    16 	classVariableNames:''
    17 	poolDictionaries:''
    17 	poolDictionaries:''
    18 	category:'Interface-Printing'
    18 	category:'Interface-Printing'
    19 !
    19 !
    20 
    20 
   184 
   184 
   185     "Created: / 02-08-2006 / 13:06:21 / fm"
   185     "Created: / 02-08-2006 / 13:06:21 / fm"
   186     "Modified: / 10-10-2006 / 17:29:26 / cg"
   186     "Modified: / 10-10-2006 / 17:29:26 / cg"
   187 ! !
   187 ! !
   188 
   188 
       
   189 !PrintAbortDialog methodsFor:'queries'!
       
   190 
       
   191 shouldAbort
       
   192 
       
   193     ^ abort ? false
       
   194 ! !
       
   195 
   189 !PrintAbortDialog methodsFor:'update'!
   196 !PrintAbortDialog methodsFor:'update'!
   190 
   197 
   191 updatePrintingPageInfo:aString 
   198 updatePrintingPageInfo:aString 
   192     printingPageLabel label:aString
   199     printingPageLabel label:aString
   193 
   200 
   206 
   213 
   207 !PrintAbortDialog methodsFor:'user actions'!
   214 !PrintAbortDialog methodsFor:'user actions'!
   208 
   215 
   209 abort
   216 abort
   210     "The abort dialog should be closed after aborting the printing process"
   217     "The abort dialog should be closed after aborting the printing process"
       
   218     abort := true.
   211     printer abortPrintJob.
   219     printer abortPrintJob.
       
   220 "/    self close.
   212 ! !
   221 ! !
   213 
   222 
   214 !PrintAbortDialog class methodsFor:'documentation'!
   223 !PrintAbortDialog class methodsFor:'documentation'!
   215 
   224 
   216 version
   225 version
   217     ^ '$Header: /cvs/stx/stx/libwidg2/PrintAbortDialog.st,v 1.6 2007-04-23 09:31:07 fm Exp $'
   226     ^ '$Header: /cvs/stx/stx/libwidg2/PrintAbortDialog.st,v 1.7 2007-10-19 14:21:04 fm Exp $'
   218 ! !
   227 ! !