# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1534945006 -7200
# Node ID de518dc6caf9d7fac5f39f8ec78e4c684aba92c4
# Parent  d2e345ce8778f9c370e5f296209ee8d623460e34
#REFACTORING by cg
class: EditTextView
removed: #fixedSize
comment/format in: #readOnly:

diff -r d2e345ce8778 -r de518dc6caf9 EditTextView.st
--- a/EditTextView.st	Wed Aug 22 12:57:09 2018 +0200
+++ b/EditTextView.st	Wed Aug 22 15:36:46 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -1097,25 +1099,6 @@
     exceptionBlock := aBlock
 !
 
-fixedSize
-    "make the texts size fixed (no lines may be added).
-     OBSOLETE: use readOnly"
-
-    <resource:#obsolete>
-
-    |menu|
-
-    self obsoleteMethodWarning:'use #readOnly:'.
-    readOnly == true ifFalse:[
-        readOnly := true.
-        (menu := self middleButtonMenu) notNil ifTrue:[
-            menu disableAll:#(cut paste replace indent)
-        ]
-    ]
-
-    "Modified: 14.2.1997 / 17:35:24 / cg"
-!
-
 generateTextAfterEndHook:aBlock
     "some applications may want to dynamically generate lines below the bottom line,
      when the cursor is moved there.
@@ -1244,13 +1227,14 @@
     "Modified (comment): / 02-08-2013 / 16:46:57 / cg"
 !
 
-readOnly:aBoolean
+readOnly:aBooleanOrValueHolder
     "make the text readonly (aBoolean == true) or writable (aBoolean == false).
      The argument may also be a valueHolder."
 
-    readOnly := aBoolean
-
-    "Created: 14.2.1997 / 17:35:39 / cg"
+    readOnly := aBooleanOrValueHolder
+
+    "Created: / 14-02-1997 / 17:35:39 / cg"
+    "Modified (format): / 22-08-2018 / 15:35:14 / Claus Gittinger"
 !
 
 reallyModifiedChannel