class: ChangesBrowser
changed:
#findNextWithString:
#findPreviousWithString:
--- a/ChangesBrowser.st Fri Nov 28 13:02:10 2014 +0100
+++ b/ChangesBrowser.st Fri Nov 28 13:07:11 2014 +0100
@@ -2692,35 +2692,36 @@
!
findNextWithString:searchString
+ |includesMatchCharacters|
+
lastSearchType := #string.
lastSearchString := searchString.
changeNrShown isNil ifTrue:[
- changeNrShown := 0.
- ].
+ changeNrShown := 0.
+ ].
+
+ includesMatchCharacters := searchString includesMatchCharacters.
self findNextForWhich:
- [:changeNr |
- |s|
-
- s := self sourceOfMethodChange:changeNr.
- s notNil and:[
- (searchString includesMatchCharacters not
- and:[(s findString:searchString) ~~ 0])
- or:[ searchString includesMatchCharacters
- and:[('*' , searchString , '*') match:s ]]]
- ].
+ [:changeNr |
+ |s|
+
+ s := self sourceOfMethodChange:changeNr.
+ s notNil and:[
+ (includesMatchCharacters not and:[(s findString:searchString) ~~ 0])
+ or:[ includesMatchCharacters and:[('*' , searchString , '*') match:s ]]]
+ ].
changeNrShown == 0 ifTrue:[changeNrShown := nil].
codeView setSearchPattern:searchString.
codeView
- searchFwd:searchString
- ignoreCase:false
- startingAtLine:1 col:0
- ifAbsent:nil.
-
+ searchFwd:searchString
+ ignoreCase:false
+ startingAtLine:1 col:0
+ ifAbsent:nil.
!
findPrevious
@@ -2849,34 +2850,36 @@
!
findPreviousWithString:searchString
+ |includesMatchCharacters|
+
lastSearchType := #string.
lastSearchString := searchString.
changeNrShown isNil ifTrue:[
- changeNrShown := 0.
- ].
+ changeNrShown := 0.
+ ].
+
+ includesMatchCharacters := searchString includesMatchCharacters.
self findPreviousForWhich:
- [:changeNr |
- |s includesMatchCharacters|
-
- includesMatchCharacters := searchString includesMatchCharacters.
- s := self sourceOfMethodChange:changeNr.
- s notNil and:[
- (includesMatchCharacters not and:[(s findString:searchString) ~~ 0])
- or:[includesMatchCharacters and:[('*' , searchString , '*') match:s ]]]
- ].
+ [:changeNr |
+ |s |
+
+ s := self sourceOfMethodChange:changeNr.
+ s notNil and:[
+ (includesMatchCharacters not and:[(s findString:searchString) ~~ 0])
+ or:[includesMatchCharacters and:[('*' , searchString , '*') match:s ]]]
+ ].
changeNrShown == 0 ifTrue:[changeNrShown := nil].
codeView setSearchPattern:searchString.
codeView
- searchFwd:searchString
- ignoreCase:false
- startingAtLine:1 col:0
- ifAbsent:nil.
-
+ searchFwd:searchString
+ ignoreCase:false
+ startingAtLine:1 col:0
+ ifAbsent:nil.
!
findSelector
@@ -6527,10 +6530,10 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.460 2014-11-19 23:23:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.461 2014-11-28 12:07:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.460 2014-11-19 23:23:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.461 2014-11-28 12:07:11 cg Exp $'
! !