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