searchPattern, if from selection (escape meta characters)
authorClaus Gittinger <cg@exept.de>
Wed, 09 Aug 2000 13:09:57 +0200
changeset 2206 d62d1bf91de2
parent 2205 230cf9cef6c3
child 2207 80ca02ca0111
searchPattern, if from selection (escape meta characters)
TextView.st
--- a/TextView.st	Wed Aug 09 13:09:23 2000 +0200
+++ b/TextView.st	Wed Aug 09 13:09:57 2000 +0200
@@ -2685,9 +2685,11 @@
 
     |sel|
 
+"/    clickPos isNil ifTrue:[^ self].
+
     sel := self selection.
     sel notNil ifTrue:[
-	self setSearchPattern:sel  
+        self setSearchPattern:sel asString withMatchEscapes 
     ]
 
     "Modified: / 6.3.1999 / 23:48:04 / cg"
@@ -3146,5 +3148,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.155 2000-07-26 13:34:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.156 2000-08-09 11:09:57 cg Exp $'
 ! !