--- a/SimpleView.st	Tue Jan 24 23:22:47 2017 +0100
+++ b/SimpleView.st	Wed Jan 25 14:22:24 2017 +0100
@@ -10374,20 +10374,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