Mercurial Mercurial > hg > stx-libtool / 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.
fixes in searchBar
authorfm
Fri, 16 Oct 2009 11:54:33 +0200
changeset 8996 261868e9cc34
parent 8995 bc212a8dee78
child 8997 05b9949f54aa
fixes in searchBar
Tools__StringSearchTool.st file | annotate | diff | comparison | revisions 
--- a/Tools__StringSearchTool.st	Fri Oct 16 11:54:11 2009 +0200
+++ b/Tools__StringSearchTool.st	Fri Oct 16 11:54:33 2009 +0200
@@ -436,6 +436,11 @@
 
 searchPreviousBlock:something
     searchPreviousBlock := something.
+!
+
+searchText
+
+    ^ searchTextView contents
 ! !
 
 !StringSearchTool methodsFor:'aspects'!
@@ -558,7 +563,7 @@
 
 
 "/Transcript showCR: 'searchTextModifiedHolderChanged: ',(self searchTextHolder value ? '').
-"/Transcript showCR: 'searchTextView contents: ',(searchTextView contents ? '').
+"/Transcript showCR: 'searchTextView contents: ',(self searchText ? '').
 
     "Created: / 15-06-2007 / 18:07:57 / Administrador"
     "Modified: / 16-06-2007 / 09:21:27 / Administrador"
@@ -719,7 +724,7 @@
 searchNextTextFromBeginning
     |searchText ignoreCase|
 
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     ignoreCase := self ignoreCase.
     searchNextBlock isNil ifTrue:[^ self].
@@ -734,7 +739,7 @@
     |searchText ignoreCase startPlace|
 
     self searchTextStarted.
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     ignoreCase := self ignoreCase.
     searchNextBlock isNil ifTrue:[^ self].
@@ -752,7 +757,7 @@
     |searchText ignoreCase|
 
     self searchTextStarted.
-    searchText := searchTextView contents.      
+    searchText := self searchText.      
 "/    self setFocusToSearchTextView.
     searchText isEmptyOrNil ifTrue:[^self].
     ignoreCase := self ignoreCase.
@@ -774,7 +779,7 @@
 
     |searchText ignoreCase|
 
-    searchText := searchTextView contents.
+    searchText := self searchText.
     searchText isEmptyOrNil ifTrue:[^self].
     ignoreCase := self ignoreCase.
     searchPreviousBlock isNil ifTrue:[^ self].
@@ -788,9 +793,9 @@
 !StringSearchTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.17 2009-10-12 13:26:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.18 2009-10-16 09:54:33 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.17 2009-10-12 13:26:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchTool.st,v 1.18 2009-10-16 09:54:33 fm Exp $'
 ! !
hg/stx-libtool