--- a/SimpleView.st	Wed Feb 01 21:42:41 2017 +0000
+++ b/SimpleView.st	Wed Feb 01 22:17:58 2017 +0000
@@ -10383,20 +10383,26 @@
      when problem or warning conditions arise.
      Someone may redefine this to flash its contents (instead of black/white)."
 
+    shown ifFalse:[^ self]. 
+
     self fill:flashColor.
     messageOrNil notNil ifTrue:[
-	self withForeground:self whiteColor do:[
-	    self displayString:messageOrNil centeredAt:(self center).
-	].
+        gc withForeground:self whiteColor do:[
+            self displayString:messageOrNil centeredAt:(self center).
+        ].
     ].
     Delay waitForSeconds:0.1.
+    shown ifFalse:[^ self]. 
+    
     self fill:self whiteColor.
     messageOrNil notNil ifTrue:[
-	self withForeground:self blackColor do:[
-	    self displayString:messageOrNil centeredAt:(self center).
-	].
+        gc withForeground:self blackColor do:[
+            self displayString:messageOrNil centeredAt:(self center).
+        ].
     ].
     Delay waitForSeconds:0.1.
+    shown ifFalse:[^ self]. 
+
     self fill:viewBackground.
     self invalidate