#REFACTORING by cg
class: EditTextView
removed: #fixedSize
comment/format in: #readOnly:
--- 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