comment/format in: #setLastStringToReplace:
authorClaus Gittinger <cg@exept.de>
Mon, 16 Nov 2009 17:19:42 +0100
changeset 4110 8cf88a86ada9
parent 4109 e3e3d6ec37ea
child 4111 3f5070dad50d
comment/format in: #setLastStringToReplace: changed: #setSearchPatternWithMatchEscapes:
EditTextView.st
--- a/EditTextView.st	Mon Nov 16 17:19:17 2009 +0100
+++ b/EditTextView.st	Mon Nov 16 17:19:42 2009 +0100
@@ -6716,6 +6716,7 @@
 
     |sel|
 
+lastSearchPattern isNil ifTrue:[
     "/
     "/ if the last operation was a replace, set pattern to last
     "/ original string (for search after again)
@@ -6730,6 +6731,7 @@
         ].
         ^ self
     ].
+].
 
     "/
     "/ if there is a selection:
@@ -7666,9 +7668,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.479 2009-11-13 13:18:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.480 2009-11-16 16:19:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.479 2009-11-13 13:18:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.480 2009-11-16 16:19:42 cg Exp $'
 ! !