--- a/ListView.st	Tue Jul 11 14:36:44 2017 +0200
+++ b/ListView.st	Thu Jul 13 20:42:20 2017 +0200
@@ -656,6 +656,12 @@
     expandTabsWhenUpdating := aBoolean
 !
 
+isReadOnly
+    "return true, if the text is readonly."
+
+    ^ true
+!
+
 lineEndCRLF
     "answer true, if CRLF is used for the line end.
      This is true for DOS/Windows files.
@@ -666,6 +672,11 @@
     "Created: / 04-07-2006 / 19:05:01 / fm"
 !
 
+readOnly:aBoolean
+    "for protocol compatibility with editTextViews,
+     but actually ignored"
+!
+
 scrollWhenUpdating
     "return the scroll behavior, when I get a new text
      (via the model or the #contents/#list)