--- 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 $'
! !