Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
string literal search
authorClaus Gittinger <cg@exept.de>
Wed, 19 May 2004 15:24:11 +0200
changeset 5878 d4f131fff6dd
parent 5877 c11a6d244c6a
child 5879 2e81afdc65cc
string literal search
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed May 19 15:21:32 2004 +0200
+++ b/NewSystemBrowser.st	Wed May 19 15:24:11 2004 +0200
@@ -13772,16 +13772,16 @@
 "/    ].
 
     self 
-        askForMethodAndSpawnSearchTitle:'Search Matchstring in String-Literals:' 
-        browserLabel:'Methods with Matching String-Literal'
-        searchWith:#( #'findStringLiteral:in:isMethod:' #'findStringLiteral:inMethods:isMethod:' )
-        isSelector:#code
+        askForMethodAndSpawnSearchTitle:'Search Matchstring in Literal-Strings:' 
+        browserLabel:'Methods with Literal-String Matching'
+        searchWith:#( #'findStringLiteral:in:ignoreCase:match:' #'findStringLiteral:inMethods:ignoreCase:match:' )
+        isSelector:#string
         searchArea:whereDefault
-        withCaseIgnore:false
+        withCaseIgnore:true
         withTextEntry:true
         withMethodList:true
-        setSearchPattern:[:brwsr :codePattern :ignoreCase :doMatch|
-                            "/ brwsr autoSearchCodePattern:codePattern 
+        setSearchPattern:[:brwsr :string :ignoreCase :doMatch|
+                            brwsr autoSearchPattern:string ignoreCase:ignoreCase.
                          ]
 !
 
@@ -29865,9 +29865,11 @@
         matches: codePattern
         do:[:aNode :answer | answer add:aNode. answer ].
 
-    ^ self searchUsingSearcher:searcher direction:direction 
-                    startLine:startLine startCol:startCol 
-                    ifFound:foundBlock ifNotFound:notFoundBlock.
+    ^ self 
+        searchUsingSearcher:searcher 
+        direction:direction 
+        startLine:startLine startCol:startCol 
+        ifFound:foundBlock ifNotFound:notFoundBlock.
 !
 
 searchForSelector:aSelectorOrCollectionOfSelectors direction:direction 
@@ -35505,7 +35507,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.743 2004-05-19 13:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.744 2004-05-19 13:24:11 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed May 19 15:21:32 2004 +0200
+++ b/Tools__NewSystemBrowser.st	Wed May 19 15:24:11 2004 +0200
@@ -13772,16 +13772,16 @@
 "/    ].
 
     self 
-        askForMethodAndSpawnSearchTitle:'Search Matchstring in String-Literals:' 
-        browserLabel:'Methods with Matching String-Literal'
-        searchWith:#( #'findStringLiteral:in:isMethod:' #'findStringLiteral:inMethods:isMethod:' )
-        isSelector:#code
+        askForMethodAndSpawnSearchTitle:'Search Matchstring in Literal-Strings:' 
+        browserLabel:'Methods with Literal-String Matching'
+        searchWith:#( #'findStringLiteral:in:ignoreCase:match:' #'findStringLiteral:inMethods:ignoreCase:match:' )
+        isSelector:#string
         searchArea:whereDefault
-        withCaseIgnore:false
+        withCaseIgnore:true
         withTextEntry:true
         withMethodList:true
-        setSearchPattern:[:brwsr :codePattern :ignoreCase :doMatch|
-                            "/ brwsr autoSearchCodePattern:codePattern 
+        setSearchPattern:[:brwsr :string :ignoreCase :doMatch|
+                            brwsr autoSearchPattern:string ignoreCase:ignoreCase.
                          ]
 !
 
@@ -29865,9 +29865,11 @@
         matches: codePattern
         do:[:aNode :answer | answer add:aNode. answer ].
 
-    ^ self searchUsingSearcher:searcher direction:direction 
-                    startLine:startLine startCol:startCol 
-                    ifFound:foundBlock ifNotFound:notFoundBlock.
+    ^ self 
+        searchUsingSearcher:searcher 
+        direction:direction 
+        startLine:startLine startCol:startCol 
+        ifFound:foundBlock ifNotFound:notFoundBlock.
 !
 
 searchForSelector:aSelectorOrCollectionOfSelectors direction:direction 
@@ -35505,7 +35507,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.743 2004-05-19 13:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.744 2004-05-19 13:24:11 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool