--- 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|