--- a/SimpleView.st	Wed Oct 18 03:40:20 2017 +0000
+++ b/SimpleView.st	Sat Oct 21 23:15:49 2017 +0200
@@ -10492,8 +10492,8 @@
 !
 
 flash:messageOrNil withColor:flashColor
-    "flash the view - fill it black, then white, finally
-     redraw completely.
+    "flash the view - fill it flashColor, then white, 
+     finally redraw completely.
      Can be used to wakeup the user :-)
      when problem or warning conditions arise.
      Someone may redefine this to flash its contents (instead of black/white)."
@@ -10531,7 +10531,8 @@
      v destroy
     "
 
-    "Modified: / 16.7.1998 / 18:46:48 / cg"
+    "Modified: / 16-07-1998 / 18:46:48 / cg"
+    "Modified (comment): / 21-10-2017 / 23:13:58 / cg"
 !
 
 flashReadOnly