Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jul 1996 09:11:26 +0200
changeset 785 6384ec64a6dd
parent 784 4161490a4b6d
child 786 8b301af1cdcc
checkin from browser
ETxtView.st file | annotate | diff | comparison | revisions
EditTextView.st file | annotate | diff | comparison | revisions 
--- a/ETxtView.st	Wed Jul 10 12:16:09 1996 +0200
+++ b/ETxtView.st	Mon Jul 15 09:11:26 1996 +0200
@@ -3846,8 +3846,11 @@
 
                     self deleteSelection.
                     lastReplacement notNil ifTrue:[
-                        repl := lastReplacement withoutSpaces.
-
+                        lastReplacement isString ifFalse:[
+                            repl := lastReplacement asString withoutSpaces
+                        ] ifTrue:[
+                            repl := lastReplacement withoutSpaces.
+                        ].
                         self insertLines:repl asStringCollection withCR:false.
                         self selectFromLine:line col:col toLine:cursorLine col:(cursorCol - 1).
                     ].
@@ -3862,7 +3865,7 @@
                 ]
     ]
 
-    "Modified: 18.5.1996 / 15:33:08 / cg"
+    "Modified: 12.7.1996 / 22:18:36 / cg"
 !
 
 multipleAgain
@@ -3882,5 +3885,5 @@
 !EditTextView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.89 1996-07-08 14:05:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.90 1996-07-15 07:11:26 cg Exp $'
 ! !
--- a/EditTextView.st	Wed Jul 10 12:16:09 1996 +0200
+++ b/EditTextView.st	Mon Jul 15 09:11:26 1996 +0200
@@ -3846,8 +3846,11 @@
 
                     self deleteSelection.
                     lastReplacement notNil ifTrue:[
-                        repl := lastReplacement withoutSpaces.
-
+                        lastReplacement isString ifFalse:[
+                            repl := lastReplacement asString withoutSpaces
+                        ] ifTrue:[
+                            repl := lastReplacement withoutSpaces.
+                        ].
                         self insertLines:repl asStringCollection withCR:false.
                         self selectFromLine:line col:col toLine:cursorLine col:(cursorCol - 1).
                     ].
@@ -3862,7 +3865,7 @@
                 ]
     ]
 
-    "Modified: 18.5.1996 / 15:33:08 / cg"
+    "Modified: 12.7.1996 / 22:18:36 / cg"
 !
 
 multipleAgain
@@ -3882,5 +3885,5 @@
 !EditTextView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.89 1996-07-08 14:05:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.90 1996-07-15 07:11:26 cg Exp $'
 ! !
hg/stx-libwidg