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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 23 Feb 2006 15:53:21 +0100
changeset 6607 66b423bc7eb0
parent 6606 78fab320e17a
child 6608 3dca68c02ef7
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Thu Feb 23 15:36:42 2006 +0100
+++ b/NewSystemBrowser.st	Thu Feb 23 15:53:21 2006 +0100
@@ -4532,6 +4532,7 @@
             label: 'Rename...'
             itemValue: categoryMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasCategorySelectedHolder
@@ -5683,6 +5684,7 @@
             label: 'Rename...'
             itemValue: classMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasClassSelectedHolder
@@ -7424,6 +7426,7 @@
             label: 'Rename...'
             itemValue: protocolMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasProtocolSelectedHolder
@@ -7564,6 +7567,7 @@
             #label: 'Class...'
             #translateLabel: true
             #value: #searchMenuFindClass
+            shortcutKey: Cmds
           )
          #(#MenuItem
             #label: 'Class Hierarchy'
@@ -8140,6 +8144,7 @@
             label: 'Rename...'
             itemValue: selectorMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasMethodSelectedAndCanUseRefactoringSupportHolder
@@ -8298,6 +8303,7 @@
             label: 'Implementors...'
             itemValue: browseMenuImplementorsOf
             translateLabel: true
+            shortcutKey: Cmdi
           )
          (MenuItem
             label: 'Implementors of Any...'
@@ -8877,6 +8883,7 @@
             itemValue: variablesMenuRename
             translateLabel: true
             showBusyCursorWhilePerforming: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasClassesWithCommonSuperclassAndVariableSelectedAndCanUseRefactoringSupportHolder
@@ -37273,6 +37280,13 @@
             arguments:#().
         ^ true
     ].
+    (rawKey == #Cmdi) ifTrue:[
+        self 
+            enqueueMessage:#browseImplementorsOf
+            for:self
+            arguments:#().
+        ^ true
+    ].
     ^ false
 !
 
@@ -37394,7 +37408,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.918 2006-02-23 14:36:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.919 2006-02-23 14:53:21 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Thu Feb 23 15:36:42 2006 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Feb 23 15:53:21 2006 +0100
@@ -4532,6 +4532,7 @@
             label: 'Rename...'
             itemValue: categoryMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasCategorySelectedHolder
@@ -5683,6 +5684,7 @@
             label: 'Rename...'
             itemValue: classMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasClassSelectedHolder
@@ -7424,6 +7426,7 @@
             label: 'Rename...'
             itemValue: protocolMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasProtocolSelectedHolder
@@ -7564,6 +7567,7 @@
             #label: 'Class...'
             #translateLabel: true
             #value: #searchMenuFindClass
+            shortcutKey: Cmds
           )
          #(#MenuItem
             #label: 'Class Hierarchy'
@@ -8140,6 +8144,7 @@
             label: 'Rename...'
             itemValue: selectorMenuRename
             translateLabel: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasMethodSelectedAndCanUseRefactoringSupportHolder
@@ -8298,6 +8303,7 @@
             label: 'Implementors...'
             itemValue: browseMenuImplementorsOf
             translateLabel: true
+            shortcutKey: Cmdi
           )
          (MenuItem
             label: 'Implementors of Any...'
@@ -8877,6 +8883,7 @@
             itemValue: variablesMenuRename
             translateLabel: true
             showBusyCursorWhilePerforming: true
+            shortcutKey: Cmdr
           )
          (MenuItem
             enabled: hasClassesWithCommonSuperclassAndVariableSelectedAndCanUseRefactoringSupportHolder
@@ -37273,6 +37280,13 @@
             arguments:#().
         ^ true
     ].
+    (rawKey == #Cmdi) ifTrue:[
+        self 
+            enqueueMessage:#browseImplementorsOf
+            for:self
+            arguments:#().
+        ^ true
+    ].
     ^ false
 !
 
@@ -37394,7 +37408,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.918 2006-02-23 14:36:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.919 2006-02-23 14:53:21 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool