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.
+browse-table-spec methods
authorClaus Gittinger <cg@exept.de>
Mon, 07 Jan 2008 14:33:12 +0100
changeset 7916 e32bb9390b73
parent 7915 56a43b103eaa
child 7917 7da0fd6402f8
+browse-table-spec methods
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Mon Jan 07 14:32:29 2008 +0100
+++ b/NewSystemBrowser.st	Mon Jan 07 14:33:12 2008 +0100
@@ -4229,6 +4229,12 @@
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
+                  label: 'With Table Spec...'
+                  itemValue: browseMenuMethodsWithTableSpec
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
                   label: 'With Help Spec...'
                   itemValue: browseMenuMethodsWithHelpSpec
                   translateLabel: true
@@ -15996,6 +16002,16 @@
                          ]
 !
 
+browseMenuMethodsWithTableSpec
+    "launch an enterBox for area to search in"
+
+    ^ self
+        askForMethodAndSpawnSearchTitle:'Search for tableSpec methods in:'
+        browserLabel:(LabelAndIcon icon:(self class menuIcon) string:'TableSpecs')
+        searchWith:[:classes | self class findResource:#(tableColumns) in:classes]
+        searchArea:(self defaultSearchArea)
+!
+
 browseMenuMethodsWithUglyCodingStyle
     |whereDefault|
 
@@ -41239,7 +41255,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1176 2007-12-18 13:05:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1177 2008-01-07 13:33:12 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Mon Jan 07 14:32:29 2008 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Jan 07 14:33:12 2008 +0100
@@ -4229,6 +4229,12 @@
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
+                  label: 'With Table Spec...'
+                  itemValue: browseMenuMethodsWithTableSpec
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
                   label: 'With Help Spec...'
                   itemValue: browseMenuMethodsWithHelpSpec
                   translateLabel: true
@@ -15996,6 +16002,16 @@
                          ]
 !
 
+browseMenuMethodsWithTableSpec
+    "launch an enterBox for area to search in"
+
+    ^ self
+        askForMethodAndSpawnSearchTitle:'Search for tableSpec methods in:'
+        browserLabel:(LabelAndIcon icon:(self class menuIcon) string:'TableSpecs')
+        searchWith:[:classes | self class findResource:#(tableColumns) in:classes]
+        searchArea:(self defaultSearchArea)
+!
+
 browseMenuMethodsWithUglyCodingStyle
     |whereDefault|
 
@@ -41239,7 +41255,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1176 2007-12-18 13:05:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1177 2008-01-07 13:33:12 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool