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.
allow browse-all in findClass:single:in:
authorClaus Gittinger <cg@exept.de>
Sat, 06 Sep 2008 13:31:51 +0200
changeset 8267 153807163726
parent 8266 9462cff0b3b5
child 8268 ad2da5c435b9
allow browse-all in findClass:single:in:
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Sat Sep 06 12:46:41 2008 +0200
+++ b/NewSystemBrowser.st	Sat Sep 06 13:31:51 2008 +0200
@@ -28711,7 +28711,7 @@
 !
 
 findClass:classNameArg single:singleClass in:doWhat
-    |className brwsr class classes box classNames aliases currentNamespace|
+    |className brwsr class classes box classNames aliases currentNamespace browseButton|
 
     className := classNameArg.
 
@@ -28757,7 +28757,19 @@
                     box initialText:(classes first name).
                     box entryCompletionBlock:(self classNameEntryCompletionBlock).
                     box action:[:aString | className := aString string].
+
+                    browseButton := Button label:(resources string:'Browse All').
+                    browseButton action:[
+                                    self
+                                        spawnClassBrowserFor:classes 
+                                        label:('Classes named like "%1"' bindWith:classNameArg) 
+                                        in:#newBrowser 
+                                        select:false.
+                                    box hide
+                                 ].
+                    box addButton:browseButton before:box okButton.
                     box open.
+
                     className isNil ifTrue:[ "/ cancel
                         ^ nil
                     ].
@@ -41996,7 +42008,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1226 2008-09-06 10:46:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1227 2008-09-06 11:31:51 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Sat Sep 06 12:46:41 2008 +0200
+++ b/Tools__NewSystemBrowser.st	Sat Sep 06 13:31:51 2008 +0200
@@ -28711,7 +28711,7 @@
 !
 
 findClass:classNameArg single:singleClass in:doWhat
-    |className brwsr class classes box classNames aliases currentNamespace|
+    |className brwsr class classes box classNames aliases currentNamespace browseButton|
 
     className := classNameArg.
 
@@ -28757,7 +28757,19 @@
                     box initialText:(classes first name).
                     box entryCompletionBlock:(self classNameEntryCompletionBlock).
                     box action:[:aString | className := aString string].
+
+                    browseButton := Button label:(resources string:'Browse All').
+                    browseButton action:[
+                                    self
+                                        spawnClassBrowserFor:classes 
+                                        label:('Classes named like "%1"' bindWith:classNameArg) 
+                                        in:#newBrowser 
+                                        select:false.
+                                    box hide
+                                 ].
+                    box addButton:browseButton before:box okButton.
                     box open.
+
                     className isNil ifTrue:[ "/ cancel
                         ^ nil
                     ].
@@ -41996,7 +42008,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1226 2008-09-06 10:46:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1227 2008-09-06 11:31:51 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool