hg/stx-libtool: comparison Tools__InlineMessageDialog.st

equal deleted inserted replaced

-:3efd83b86c07
+:76f9a872362b
 ... executable example here ...
 [exEnd]
 "
 ! !
 !InlineMessageDialog class methodsFor:'accessing-colors'!
 defaultInformationBackground
 ^(Color red:100.0 green:78.0392156862745 blue:22.7450980392157)
 ^(Color red:76.078431372549 green:43.1372549019608 blue:43.1372549019608)
 "Created: / 10-04-2012 / 19:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog class methodsFor:'interface specs'!
 messageInfoSpec
 "This resource specification was automatically generated
 )
 )
 ! !
 !InlineMessageDialog class methodsFor:'others'!
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.7 2012/05/17 15:31:22 vrany Exp �'
+^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.7 2012-05-17 15:31:22 vrany Exp $'
 ! !
 !InlineMessageDialog methodsFor:'accessing'!
 backgroundColor: aColor
 "Sets the background color, but only iff backgroundColorHolder is
 ]
 "Created: / 28-10-2010 / 18:24:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'accessing-presentation'!
 changeLayoutUponShowHide: aBoolean
 "If set to false, no changes to compokent layout is done
 when panel is shown/hidden. This effectively means, that
 changeLayoutUponShowHide := aBoolean
 "Modified (comment): / 17-05-2012 / 13:56:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'actions'!
 doAbort
 doOK
 <resource: #uiCallback>
 (worker notNil and:[worker isDead not]) ifTrue:[
+worker := nil.
+worker terminate.
 "/ raise its prio to make it terminate quickly
-worker priority:(Processor userSchedulingPriority + 1).
+worker priority:(Processor userSchedulingPriority + 1)
-worker terminate.
-worker := nil.
 ].
 self hide.
-"Modified: / 27-07-2012 / 15:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 11-04-2012 / 13:18:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'adding & removing components'!
 addButton: aButton
 | layoutView |
 ].
 "Created: / 11-04-2012 / 00:51:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'aspects'!
 backgroundColorHolder
 "return/create the 'backgroundColorHolder' value holder (automatically generated)"
 ^ specHolder
 "Modified: / 28-10-2010 / 18:29:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'change & update'!
 update:aspect with:parameter from:changedObject
 "Invoked when an object that I depend upon sends a change notification."
 ].
 super update:aspect with:parameter from:changedObject
 "Modified: / 10-04-2012 / 19:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'hooks'!
 commonPostBuild
 panelViewComponents notEmptyOrNil ifTrue:[
 progressView := aProgressIndicator
 "Created: / 10-02-2012 / 10:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'private'!
 getMyView
 | v |
 spec == #progressInfoSpec ifTrue:[ self beProgress ].
 self show.
 "Created: / 29-10-2010 / 11:48:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'utilities'!
 reset
 "Resets the dialog to initial state, removes all
 worker resume.
 "Created: / 11-04-2012 / 13:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog methodsFor:'utilities-obsolete'!
 information: message
 self information: message timeout: nil
 self show
 "Created: / 13-02-2012 / 16:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !InlineMessageDialog class methodsFor:'documentation'!
 version
-^ '$Id: Tools__InlineMessageDialog.st 8091 2013-01-18 00:03:03Z vranyj1 $'
+^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.7 2012-05-17 15:31:22 vrany Exp $'
 !
 version_SVN
-^ '$Id: Tools__InlineMessageDialog.st 8091 2013-01-18 00:03:03Z vranyj1 $'
+^ '�Id: Tools__InlineMessageDialog.st 7976 2012-04-11 16:14:22Z vranyj1 �'
 ! !

branch	jv
changeset 12405	76f9a872362b
parent 12322	6ca193e20c8e
parent 11518	0ff0a7132e35
child 12406	1fbd331e4489