--- a/EditTextView.st	Fri Feb 14 17:21:53 1997 +0100
+++ b/EditTextView.st	Fri Feb 14 19:11:14 1997 +0100
@@ -463,12 +463,15 @@
     "make the texts size fixed (no lines may be added).
      OBSOLETE: use readOnly"
 
+    self obsoleteMethodWarning:'use #readOnly:'.
     readOnly ifFalse:[
-	readOnly := true.
-	middleButtonMenu notNil ifTrue:[
-	    middleButtonMenu disableAll:#(cut paste replace indent)
-	]
+        readOnly := true.
+        middleButtonMenu notNil ifTrue:[
+            middleButtonMenu disableAll:#(cut paste replace indent)
+        ]
     ]
+
+    "Modified: 14.2.1997 / 17:35:24 / cg"
 !
 
 fromFile:aFileName
@@ -505,9 +508,20 @@
 !
 
 readOnly
-    "make the text readonly"
+    "make the text readonly.
+     Somewhat obsolete - use #readOnly:"
 
     readOnly := true
+
+    "Modified: 14.2.1997 / 17:35:56 / cg"
+!
+
+readOnly:aBoolean
+    "make the text readonly or writable"
+
+    readOnly := aBoolean
+
+    "Created: 14.2.1997 / 17:35:39 / cg"
 ! !
 
 !EditTextView methodsFor:'accessing-look'!
@@ -3956,5 +3970,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.111 1997-02-14 16:21:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.112 1997-02-14 18:11:14 cg Exp $'
 ! !