equal
deleted
inserted
replaced
3341 l label:'Waiting... [',(TimeDuration seconds:remaining) printString,']'. |
3341 l label:'Waiting... [',(TimeDuration seconds:remaining) printString,']'. |
3342 Delay waitForSeconds:1. |
3342 Delay waitForSeconds:1. |
3343 ]. |
3343 ]. |
3344 |
3344 |
3345 l label:'TEA is ready !!'. |
3345 l label:'TEA is ready !!'. |
|
3346 self window topView raiseDeiconified. |
3346 "/ could have been removed in the meantime.... |
3347 "/ could have been removed in the meantime.... |
3347 (wg := confirmButton windowGroup) notNil ifTrue:[ |
3348 (wg := confirmButton windowGroup) notNil ifTrue:[ |
3348 confirmButton beVisible. |
3349 confirmButton beVisible. |
3349 wg repairDamage. |
3350 wg repairDamage. |
3350 |
3351 |
3351 [ confirmed ] whileFalse:[ |
3352 [ confirmed ] whileFalse:[ |
|
3353 self window topView raiseDeiconified. |
3352 3 timesRepeat:[ l beep. Delay waitForSeconds:0.4 ]. |
3354 3 timesRepeat:[ l beep. Delay waitForSeconds:0.4 ]. |
3353 Delay waitForSeconds:5. |
3355 Delay waitForSeconds:5. |
3354 ]. |
3356 ]. |
3355 |
3357 |
3356 l viewBackground:Color green. |
3358 l viewBackground:Color green. |
3357 l topView raiseDeiconified. |
|
3358 ]. |
3359 ]. |
3359 ] |
3360 ] |
3360 ] fork. |
3361 ] fork. |
3361 |
3362 |
3362 "Modified: / 16-11-2010 / 14:54:05 / cg" |
3363 "Modified: / 16-11-2010 / 14:54:05 / cg" |
4023 ! ! |
4024 ! ! |
4024 |
4025 |
4025 !WorkspaceApplication class methodsFor:'documentation'! |
4026 !WorkspaceApplication class methodsFor:'documentation'! |
4026 |
4027 |
4027 version |
4028 version |
4028 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.240 2013-04-25 08:34:44 stefan Exp $' |
4029 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.241 2013-05-01 11:14:09 cg Exp $' |
4029 ! |
4030 ! |
4030 |
4031 |
4031 version_CVS |
4032 version_CVS |
4032 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.240 2013-04-25 08:34:44 stefan Exp $' |
4033 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.241 2013-05-01 11:14:09 cg Exp $' |
4033 ! |
4034 ! |
4034 |
4035 |
4035 version_SVN |
4036 version_SVN |
4036 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
4037 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
4037 ! ! |
4038 ! ! |