--- a/Tools__ObjectModuleInformation.st Sat Sep 06 13:16:08 2008 +0200
+++ b/Tools__ObjectModuleInformation.st Sat Sep 06 13:27:09 2008 +0200
@@ -225,6 +225,14 @@
hideMenuOnActivated: false
indication: showOthers
)
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Update'
+ itemValue: menuUpdateModuleList
+ translateLabel: true
+ )
)
nil
nil
@@ -236,13 +244,13 @@
submenu:
(Menu
(
- (MenuItem
- enabled: canBrowseSelectedModule
- label: 'Browse'
- itemValue: browseModule
- translateLabel: true
- )
- (MenuItem
+ (MenuItem
+ enabled: canBrowseSelectedModule
+ label: 'Browse'
+ itemValue: browseModule
+ translateLabel: true
+ )
+ (MenuItem
enabled: canCopyClassNameList
label: 'Copy Version Info to Clipboard'
itemValue: copyClassOrVMNameList
@@ -254,15 +262,15 @@
(MenuItem
enabled: canUnloadSelectedModule
label: 'Unload'
+ itemValue: unloadSelectedModule
translateLabel: true
- itemValue: unloadSelectedModule
)
- (MenuItem
- enabled: canUnloadSelectedModule
- label: 'Remove Classes && Unload'
- itemValue: unloadSelectedModuleAndRemoveClasses
- translateLabel: true
- )
+ (MenuItem
+ enabled: canUnloadSelectedModule
+ label: 'Remove Classes && Unload'
+ itemValue: unloadSelectedModuleAndRemoveClasses
+ translateLabel: true
+ )
)
nil
nil
@@ -965,6 +973,12 @@
self window setClipboardText:text.
!
+menuUpdateModuleList
+ self updateModuleList
+
+ "Modified: / 05-10-2007 / 13:11:45 / cg"
+!
+
openDocumentation
self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO'