added #at:basicPut: to access a line without change notification.
authorClaus Gittinger <cg@exept.de>
Fri, 07 May 1999 09:24:43 +0200
changeset 1902 302a68c2255e
parent 1901 b3556ff49778
child 1903 86d3493c6a59
added #at:basicPut: to access a line without change notification.
ETxtView.st
EditTextView.st
--- a/ETxtView.st	Thu May 06 17:09:57 1999 +0200
+++ b/ETxtView.st	Fri May 07 09:24:43 1999 +0200
@@ -620,6 +620,14 @@
     "Modified: / 30.1.1998 / 14:20:15 / cg"
 !
 
+at:lineNr basicPut:aLine
+    "change a line without change notification"
+
+    (self at:lineNr) = aLine ifFalse:[
+        super at:lineNr put:aLine.
+    ].
+!
+
 at:lineNr put:aLine
     (self at:lineNr) = aLine ifFalse:[
 	super at:lineNr put:aLine.
@@ -4611,5 +4619,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.204 1999-05-05 13:10:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.205 1999-05-07 07:24:43 cg Exp $'
 ! !
--- a/EditTextView.st	Thu May 06 17:09:57 1999 +0200
+++ b/EditTextView.st	Fri May 07 09:24:43 1999 +0200
@@ -620,6 +620,14 @@
     "Modified: / 30.1.1998 / 14:20:15 / cg"
 !
 
+at:lineNr basicPut:aLine
+    "change a line without change notification"
+
+    (self at:lineNr) = aLine ifFalse:[
+        super at:lineNr put:aLine.
+    ].
+!
+
 at:lineNr put:aLine
     (self at:lineNr) = aLine ifFalse:[
 	super at:lineNr put:aLine.
@@ -4611,5 +4619,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.204 1999-05-05 13:10:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.205 1999-05-07 07:24:43 cg Exp $'
 ! !