--- a/SimpleView.st Thu Jan 16 14:32:33 2020 +0100
+++ b/SimpleView.st Thu Jan 16 14:34:31 2020 +0100
@@ -10609,6 +10609,26 @@
self flash:(resources string:'Read Only')
!
+flashRectangle:rect
+ "flash part of the view - fill it black, then white, finally redraw.
+ Can be used to bring attention to some line/part of view"
+
+ shown ifFalse:[^ self].
+ self flashRectangle:rect withColor:nil
+
+ "
+ |v|
+
+ v := View new openAndWait.
+ Delay waitForSeconds:2.
+ v flashRectangle:(10@10 corner:50@50).
+ Delay waitForSeconds:2.
+ v destroy
+ "
+
+
+!
+
flashRectangle:rect withColor:flashColor
"flash part of the view - fill it flashColor, then white,
finally redraw.
@@ -10634,7 +10654,7 @@
v := View new openAndWait.
Delay waitForSeconds:2.
- v flash:'Hello World' withColor:Color red.
+ v flashRectangle:(10@10 corner:50@50) withColor:Color red.
Delay waitForSeconds:2.
v destroy
"