--- a/Tools__InlineMessageDialog.st Wed Mar 13 01:04:29 2013 +0000
+++ b/Tools__InlineMessageDialog.st Wed Mar 13 13:18:42 2013 +0000
@@ -106,7 +106,6 @@
"
! !
-
!InlineMessageDialog class methodsFor:'accessing-colors'!
defaultInformationBackground
@@ -123,7 +122,6 @@
"Created: / 10-04-2012 / 19:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog class methodsFor:'interface specs'!
messageInfoSpec
@@ -317,14 +315,12 @@
)
! !
-
!InlineMessageDialog class methodsFor:'others'!
version_CVS
^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.8 2013-02-21 16:30:02 vrany Exp $'
! !
-
!InlineMessageDialog methodsFor:'accessing'!
backgroundColor: aColor
@@ -362,7 +358,6 @@
"Created: / 28-10-2010 / 18:24:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'accessing-presentation'!
changeLayoutUponShowHide: aBoolean
@@ -377,7 +372,6 @@
"Modified (comment): / 17-05-2012 / 13:56:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'actions'!
doAbort
@@ -392,15 +386,18 @@
] do:[
AbortOperationRequest raise.
].
- ].
- (worker notNil and:[worker isDead not]) ifTrue:[
+ worker priority:(Processor userSchedulingPriority + 1).
worker terminate.
- "/ raise its prio to make it terminate quickly
- worker priority:(Processor userSchedulingPriority + 1).
worker := nil.
].
+"/ (worker notNil and:[worker isDead not]) ifTrue:[
+"/ worker terminate.
+"/ "/ raise its prio to make it terminate quickly
+"/
+"/ worker := nil.
+"/ ].
- "Modified: / 11-04-2012 / 16:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-03-2013 / 13:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doAbortIfWorking
@@ -423,7 +420,6 @@
"Modified: / 27-07-2012 / 15:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'adding & removing components'!
addButton: aButton
@@ -525,7 +521,6 @@
"Created: / 11-04-2012 / 00:51:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'aspects'!
backgroundColorHolder
@@ -637,7 +632,6 @@
"Modified: / 28-10-2010 / 18:29:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'change & update'!
update:aspect with:parameter from:changedObject
@@ -652,7 +646,6 @@
"Modified: / 10-04-2012 / 19:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'hooks'!
commonPostBuild
@@ -681,7 +674,6 @@
"Created: / 10-02-2012 / 10:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'private'!
getMyView
@@ -780,7 +772,6 @@
"Created: / 29-10-2010 / 11:48:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'utilities'!
reset
@@ -875,7 +866,6 @@
"Created: / 11-04-2012 / 13:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog methodsFor:'utilities-obsolete'!
information: message
@@ -944,7 +934,6 @@
"Created: / 13-02-2012 / 16:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!InlineMessageDialog class methodsFor:'documentation'!
version