TextView.st
changeset 4177 0d89dbb77071
parent 4169 11d3b7a3e713
child 4178 db73b9c9a3f4
--- a/TextView.st	Thu Oct 14 12:01:39 2010 +0200
+++ b/TextView.st	Fri Oct 22 11:51:43 2010 +0200
@@ -3545,10 +3545,12 @@
     |ign match|
 
     searchAction notNil ifTrue:[
-        "/autosearch is cleared whenever there is search with user selection 
+        "/ autosearch is cleared whenever there is search with user selection 
         (self hasSelection and:[self hasSearchActionSelection not]) ifTrue: [self clearSearchAction].
-
-        "/confusing: this is for autosearch of variables (browse variable uses, for example)
+    ].
+
+    searchAction notNil ifTrue:[
+        "/ confusing: this is for autosearch of variables (browse variable uses, for example)
         self searchUsingSearchAction:#forward.
         ^ self.
     ].
@@ -3557,7 +3559,6 @@
         ^ self
     ].
 
-
     ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? true.
     match := lastSearchWasMatch ? LastSearchWasMatch ? false.
 
@@ -3587,7 +3588,7 @@
             match: match
     ]
 
-    "Modified: / 21-09-2006 / 16:49:02 / cg"
+    "Modified: / 22-10-2010 / 11:12:45 / cg"
 !
 
 searchFwd:pattern
@@ -4364,11 +4365,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.319 2010-09-20 15:52:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.320 2010-10-22 09:51:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.319 2010-09-20 15:52:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.320 2010-10-22 09:51:43 cg Exp $'
 ! !
 
 TextView initialize!