diff -r af086dc8b816 -r 0d89dbb77071 TextView.st --- 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!