equal
deleted
inserted
replaced
223 ignoreCase := self ignoreCaseHolder value. |
223 ignoreCase := self ignoreCaseHolder value. |
224 match := self matchHolder value. |
224 match := self matchHolder value. |
225 absentBlock := [self searchNextTextReachEnd]. |
225 absentBlock := [self searchNextTextReachEnd]. |
226 (self textView hasSelection and:[includeCurrentSelection]) |
226 (self textView hasSelection and:[includeCurrentSelection]) |
227 ifTrue:[ |
227 ifTrue:[ |
228 startCol := ((self textView selectionStartCol ? 1) - 1) max: 0. |
228 startCol := ((self textView selectionStartCol ? 1) - 2) max: 0. |
229 startLine := (self textView selectionStartLine ? 1). |
229 startLine := (self textView selectionStartLine ? 1). |
230 self textView searchFwd:searchText ignoreCase:ignoreCase match: match startingAtLine:startLine col:startCol ifAbsent:absentBlock. |
230 self textView searchFwd:searchText ignoreCase:ignoreCase match: match startingAtLine:startLine col:startCol ifAbsent:absentBlock. |
231 ] ifFalse:[ |
231 ] ifFalse:[ |
232 self textView searchFwd:searchText ignoreCase:ignoreCase match: match ifAbsent:absentBlock |
232 self textView searchFwd:searchText ignoreCase:ignoreCase match: match ifAbsent:absentBlock |
233 ]. |
233 ]. |
267 ! ! |
267 ! ! |
268 |
268 |
269 !StringSearchToolForTextView class methodsFor:'documentation'! |
269 !StringSearchToolForTextView class methodsFor:'documentation'! |
270 |
270 |
271 version |
271 version |
272 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.3 2008-04-08 09:03:48 fm Exp $' |
272 ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.4 2008-04-08 10:08:27 fm Exp $' |
273 ! ! |
273 ! ! |