--- a/EditTextView.st	Sat Apr 12 13:35:32 2014 +0200
+++ b/EditTextView.st	Sat Apr 12 13:36:34 2014 +0200
@@ -5256,7 +5256,7 @@
     |selStartLineBefore selStartColBefore selEndLineBefore selEndColBefore key|
 
     self isReadOnly ifTrue:[
-        self flash.
+        self flashReadOnly.
         ^ self.
     ].
 
@@ -5375,7 +5375,7 @@
     wasOn := cursorShown.
 
     NoModificationError handle:[:ex |
-        self flash.
+        self flashReadOnly.
         (cursorShown not and:[wasOn]) ifTrue:[
             self makeCursorVisibleAndShowCursor:wasOn.
         ].
@@ -5912,7 +5912,7 @@
     |line col history sel |
 
     (self checkModificationsAllowed) ifFalse:[
-        self flash.
+        self flashReadOnly.
         ^ self
     ].
 
@@ -6617,7 +6617,7 @@
     |text|
 
     self checkModificationsAllowed ifFalse:[
-        self flash.
+        self flashReadOnly.
         ^ self
     ].
     text := self getTextSelectionFromHistory.
@@ -7015,7 +7015,7 @@
     |sel|
 
     self checkModificationsAllowed ifFalse:[
-        self flash.
+        self flashReadOnly.
         ^ self
     ].
 
@@ -8547,10 +8547,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.603 2014-03-24 09:00:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.604 2014-04-12 11:36:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.603 2014-03-24 09:00:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.604 2014-04-12 11:36:34 cg Exp $'
 ! !