--- a/Tools__CodeView2.st	Tue Feb 25 16:02:19 2014 +0100
+++ b/Tools__CodeView2.st	Tue Feb 25 17:20:14 2014 +0100
@@ -707,6 +707,20 @@
     "Created: / 19-03-2012 / 14:25:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!CodeView2 methodsFor:'accessing-behavior'!
+
+readOnly:aBoolean
+    "ignored here; present for compatibility with some textView subclasses,
+     so that UIPainter can handle it in its TextView spec (which contains a
+     readOnly field)"
+
+    super readOnly:aBoolean.
+    textView readOnly: aBoolean. 
+    gutterView readOnly: aBoolean.
+
+    "Created: / 21-02-2014 / 11:45:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !CodeView2 methodsFor:'accessing-code component'!
 
 klass
@@ -3859,15 +3873,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.138 2014-02-24 18:36:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.139 2014-02-25 16:20:14 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.138 2014-02-24 18:36:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.139 2014-02-25 16:20:14 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.138 2014-02-24 18:36:31 stefan Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.139 2014-02-25 16:20:14 vrany Exp $'
 ! !