--- a/Tools__ObjectModuleInformation.st	Fri Oct 05 13:04:00 2007 +0200
+++ b/Tools__ObjectModuleInformation.st	Fri Oct 05 13:17:49 2007 +0200
@@ -2,8 +2,8 @@
 
 "{ NameSpace: Tools }"
 
-ApplicationModel subclass:#ObjectModuleInformation
-	instanceVariableNames:'listOfModuleNames selectedModuleIndexHolder allModules
+ToolApplicationModel subclass:#ObjectModuleInformation
+	instanceVariableNames:'readOnly listOfModuleNames selectedModuleIndexHolder allModules
 		objectHandles showOthers showCObjects showBuiltIn showMethods
 		showClassLibs table1VisibleHolder table2VisibleHolder'
 	classVariableNames:''
@@ -42,13 +42,6 @@
 
 !ObjectModuleInformation class methodsFor:'info'!
 
-aboutThisApplicationText
-    ^ super aboutThisApplicationText ,
-      '\\Written by Claus Gittinger, eXept Software AG.' withCRs
-
-    "Created: / 05-10-2007 / 12:39:42 / cg"
-!
-
 defaultLabel
     ^ 'Object Module Info'
 
@@ -239,6 +232,7 @@
            (Menu
               (
                (MenuItem
+                  enabled: notReadOnly
                   label: 'Unload'
                   translateLabel: true
                 )
@@ -382,6 +376,18 @@
     "Created: / 05-10-2007 / 11:05:08 / cg"
 !
 
+notReadOnly
+    ^ self readOnly not
+
+    "Created: / 05-10-2007 / 13:06:00 / cg"
+!
+
+readOnly
+    ^ readOnly ? false
+
+    "Created: / 05-10-2007 / 13:05:51 / cg"
+!
+
 selectedModuleIndexHolder
     selectedModuleIndexHolder isNil ifTrue:[
         selectedModuleIndexHolder := ValueHolder new.
@@ -697,8 +703,9 @@
 !ObjectModuleInformation methodsFor:'menu actions'!
 
 openDocumentation
+    self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO'
 
-    "Modified: / 05-10-2007 / 11:56:07 / cg"
+    "Modified: / 05-10-2007 / 13:11:45 / cg"
 ! !
 
 !ObjectModuleInformation methodsFor:'private'!