equal
deleted
inserted
replaced
1155 [ |
1155 [ |
1156 box := InfoBox title:aString. |
1156 box := InfoBox title:aString. |
1157 box hideButtons. |
1157 box hideButtons. |
1158 self showBox:box. "/ box showAtPointer. |
1158 self showBox:box. "/ box showAtPointer. |
1159 ] forkAt:(Processor activePriority + 1). |
1159 ] forkAt:(Processor activePriority + 1). |
1160 aBlock valueNowOrOnUnwindDo:[box destroy] |
1160 aBlock ensure:[box destroy] |
1161 |
1161 |
1162 " |
1162 " |
1163 Dialog informUser:'wait a second...' during:[Delay waitForSeconds:1] |
1163 Dialog informUser:'wait a second...' during:[Delay waitForSeconds:1] |
1164 Dialog informUser:'wait a few seconds...' during:[10000 factorial] |
1164 Dialog informUser:'wait a few seconds...' during:[10000 factorial] |
1165 " |
1165 " |
7391 ! ! |
7391 ! ! |
7392 |
7392 |
7393 !DialogBox class methodsFor:'documentation'! |
7393 !DialogBox class methodsFor:'documentation'! |
7394 |
7394 |
7395 version |
7395 version |
7396 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.185 2002-02-22 10:21:43 cg Exp $' |
7396 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.186 2002-02-26 13:05:32 cg Exp $' |
7397 ! ! |
7397 ! ! |
7398 DialogBox initialize! |
7398 DialogBox initialize! |