*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 23 Mar 2009 10:58:52 +0100
changeset 8584 4d5e7e78fc32
parent 8583 1ba96eea53a8
child 8585 55e239825e8d
*** empty log message ***
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- 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!