--- a/EditTextView.st Wed Jun 10 18:43:59 1998 +0200
+++ b/EditTextView.st Wed Jun 10 18:51:13 1998 +0200
@@ -2373,7 +2373,7 @@
newLine := line species new:colNr.
newLine replaceFrom:1 to:lineSize with:line startingAt:1.
] ifFalse: [
- newLine := line.
+ newLine := line copy.
]
].
newLine at:colNr put:aCharacter.
@@ -2395,7 +2395,7 @@
]
"Created: / 6.3.1996 / 12:29:20 / cg"
- "Modified: / 10.6.1998 / 16:49:54 / cg"
+ "Modified: / 10.6.1998 / 18:50:18 / cg"
!
replaceAll:aString atLine:lineNr col:colNr
@@ -2422,6 +2422,9 @@
]
].
newLine replaceFrom:colNr with:aString.
+ (aString includes:(Character tab)) ifTrue:[
+ newLine := self withTabsExpanded:newLine.
+ ].
list at:lineNr put:newLine.
widthOfWidestLine notNil ifTrue:[
widthOfWidestLine := widthOfWidestLine max:(self widthOfLineString:line).
@@ -2431,8 +2434,8 @@
self redrawLine:lineNr col:colNr
]
- "Modified: / 22.5.1996 / 15:35:22 / cg"
"Created: / 9.6.1998 / 20:30:03 / cg"
+ "Modified: / 10.6.1998 / 18:49:27 / cg"
!
splitLine:lineNr before:colNr
@@ -4249,5 +4252,5 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.160 1998-06-10 16:43:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.161 1998-06-10 16:51:13 cg Exp $'
! !