--- a/NewSystemBrowser.st Fri Mar 20 18:44:15 2009 +0100
+++ b/NewSystemBrowser.st Mon Mar 23 10:58:52 2009 +0100
@@ -36481,7 +36481,7 @@
arguments := (Array
with:string
with:entities
- with:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:isMethod ifFalse:ignoreCase)
+ with:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:[isMethod] ifFalse:[ignoreCase])
with:match) copyTo:numArgs.
selector notNil ifTrue:[
@@ -36571,7 +36571,7 @@
label:(resources string:label string with:string).
setSearchPatternAction notNil ifTrue:[
- setSearchPatternAction value:newBrowser value:string value:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:isMethod ifFalse:ignoreCase) value:match.
+ setSearchPatternAction value:newBrowser value:string value:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:[isMethod] ifFalse:[ignoreCase]) value:match.
].
^ newBrowser.
].
@@ -36579,12 +36579,6 @@
].
"Modified: / 13-09-2006 / 18:13:10 / cg"
-
-
-
-
-
-
!
askForMethodAndSpawnSearchTitle:title browserLabel:labelHolderOrBlock searchWith:aSelectorOrBlock isSelector:isSelector searchArea:whereDefault
@@ -42382,7 +42376,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1275 2009-03-11 11:57:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1276 2009-03-23 09:58:52 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Fri Mar 20 18:44:15 2009 +0100
+++ b/Tools__NewSystemBrowser.st Mon Mar 23 10:58:52 2009 +0100
@@ -36481,7 +36481,7 @@
arguments := (Array
with:string
with:entities
- with:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:isMethod ifFalse:ignoreCase)
+ with:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:[isMethod] ifFalse:[ignoreCase])
with:match) copyTo:numArgs.
selector notNil ifTrue:[
@@ -36571,7 +36571,7 @@
label:(resources string:label string with:string).
setSearchPatternAction notNil ifTrue:[
- setSearchPatternAction value:newBrowser value:string value:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:isMethod ifFalse:ignoreCase) value:match.
+ setSearchPatternAction value:newBrowser value:string value:((selector notNil and:[selector endsWith:'isMethod:']) ifTrue:[isMethod] ifFalse:[ignoreCase]) value:match.
].
^ newBrowser.
].
@@ -36579,12 +36579,6 @@
].
"Modified: / 13-09-2006 / 18:13:10 / cg"
-
-
-
-
-
-
!
askForMethodAndSpawnSearchTitle:title browserLabel:labelHolderOrBlock searchWith:aSelectorOrBlock isSelector:isSelector searchArea:whereDefault
@@ -42382,7 +42376,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1275 2009-03-11 11:57:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1276 2009-03-23 09:58:52 cg Exp $'
! !
NewSystemBrowser initialize!