added: #inspectSelectedObject
changed:
#mainMenu
#moduleItemMenu
#moduleMenu
--- a/Tools__ObjectModuleInformation.st Mon Apr 04 14:05:56 2011 +0200
+++ b/Tools__ObjectModuleInformation.st Wed Apr 13 16:26:17 2011 +0200
@@ -198,9 +198,9 @@
(
(MenuItem
label: 'Dynamically Loaded ClassLibraries Only'
+ itemValue: showOnlyDynamicallyLoadedClassLibraries
translateLabel: true
hideMenuOnActivated: false
- itemValue: showOnlyDynamicallyLoadedClassLibraries
)
(MenuItem
label: '-'
@@ -266,17 +266,17 @@
itemValue: browseModuleExtensions
translateLabel: true
)
- (MenuItem
- enabled: canBrowseSelectedModulesProjectDefinition
- label: 'Browse ProjectDefinition'
- itemValue: browseModulesProjectDefinition
- translateLabel: true
- )
- (MenuItem
- label: 'Find a Class...'
- itemValue: findClass
- translateLabel: true
- )
+ (MenuItem
+ enabled: canBrowseSelectedModulesProjectDefinition
+ label: 'Browse ProjectDefinition'
+ itemValue: browseModulesProjectDefinition
+ translateLabel: true
+ )
+ (MenuItem
+ label: 'Find a Class...'
+ itemValue: findClass
+ translateLabel: true
+ )
(MenuItem
label: '-'
)
@@ -315,6 +315,19 @@
itemValue: unloadSelectedModule
translateLabel: true
)
+ (MenuItem
+ label: 'Inspect'
+ itemValue: inspectSelectedObject
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Update'
+ itemValue: menuUpdateModuleList
+ translateLabel: true
+ )
)
nil
nil
@@ -368,16 +381,16 @@
^
#(Menu
(
- (MenuItem
+ (MenuItem
enabled: canBrowseSelectedClass
label: 'Browse'
itemValue: browseClass
translateLabel: true
)
- (MenuItem
+ (MenuItem
label: '-'
)
- (MenuItem
+ (MenuItem
enabled: canCopyClassNameList
label: 'Copy Version Info to Clipboard'
itemValue: copyClassOrVMNameList
@@ -460,6 +473,11 @@
translateLabel: true
)
(MenuItem
+ label: 'Inspect'
+ itemValue: inspectSelectedObject
+ translateLabel: true
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -1257,6 +1275,10 @@
"/ self breakPoint:#cg.
!
+inspectSelectedObject
+ self selectedObjectHandle inspect.
+!
+
loadPackage
|package ok|