10381 redraw completely. |
10381 redraw completely. |
10382 Can be used to wakeup the user :-) |
10382 Can be used to wakeup the user :-) |
10383 when problem or warning conditions arise. |
10383 when problem or warning conditions arise. |
10384 Someone may redefine this to flash its contents (instead of black/white)." |
10384 Someone may redefine this to flash its contents (instead of black/white)." |
10385 |
10385 |
|
10386 shown ifFalse:[^ self]. |
|
10387 |
10386 self fill:flashColor. |
10388 self fill:flashColor. |
10387 messageOrNil notNil ifTrue:[ |
10389 messageOrNil notNil ifTrue:[ |
10388 self withForeground:self whiteColor do:[ |
10390 gc withForeground:self whiteColor do:[ |
10389 self displayString:messageOrNil centeredAt:(self center). |
10391 self displayString:messageOrNil centeredAt:(self center). |
10390 ]. |
10392 ]. |
10391 ]. |
10393 ]. |
10392 Delay waitForSeconds:0.1. |
10394 Delay waitForSeconds:0.1. |
|
10395 shown ifFalse:[^ self]. |
|
10396 |
10393 self fill:self whiteColor. |
10397 self fill:self whiteColor. |
10394 messageOrNil notNil ifTrue:[ |
10398 messageOrNil notNil ifTrue:[ |
10395 self withForeground:self blackColor do:[ |
10399 gc withForeground:self blackColor do:[ |
10396 self displayString:messageOrNil centeredAt:(self center). |
10400 self displayString:messageOrNil centeredAt:(self center). |
10397 ]. |
10401 ]. |
10398 ]. |
10402 ]. |
10399 Delay waitForSeconds:0.1. |
10403 Delay waitForSeconds:0.1. |
|
10404 shown ifFalse:[^ self]. |
|
10405 |
10400 self fill:viewBackground. |
10406 self fill:viewBackground. |
10401 self invalidate |
10407 self invalidate |
10402 |
10408 |
10403 " |
10409 " |
10404 |v| |
10410 |v| |