--- a/Tools__ObjectModuleInformation.st Fri Jan 24 13:48:51 2014 +0100
+++ b/Tools__ObjectModuleInformation.st Fri Jan 24 16:57:06 2014 +0100
@@ -70,89 +70,98 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'ST/X Module & Version Information'
- name: 'ST/X Module & Version Information'
- min: (Point 0 0)
- bounds: (Rectangle 0 0 505 567)
- menu: mainMenu
- )
- component:
- (SpecCollection
- collection: (
- (MenuPanelSpec
- name: 'ToolBar1'
- layout: (LayoutFrame 0 0 0 0 0 1 40 0)
- menu: toolbarMenu
- textDefault: true
- )
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel1'
- layout: (LayoutFrame 0 0 40 0 0 1 0 1)
- component:
- (SpecCollection
- collection: (
- (SequenceViewSpec
- name: 'List1'
- model: selectedModuleIndexHolder
- menu: moduleMenu
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- useIndex: true
- sequenceList: listOfModuleNames
- )
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 0 1 30 0)
- translateLabel: true
- labelChannel: middleLabelHolder
- adjust: left
- )
- (DataSetSpec
- name: 'Table1'
- layout: (LayoutFrame 0 0 30 0 0 1 0 1)
- visibilityChannel: table1VisibleHolder
- model: selectedInfoIndexHolder
- menu: moduleItemMenu
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- dataList: infoTable1ListHolder
- columnHolder: tableColumns
- separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015)
- )
- (DataSetSpec
- name: 'Table2'
- layout: (LayoutFrame 0 0 30 0 0 1 0 1)
- initiallyInvisible: true
- visibilityChannel: table2VisibleHolder
- model: selectedInfoIndexHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- dataList: infoTable2ListHolder
- columnHolder: tableColumnsForSingleInfo
- separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015)
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'ST/X Module & Version Information'
+ name: 'ST/X Module & Version Information'
+ min: (Point 0 0)
+ bounds: (Rectangle 0 0 505 567)
+ menu: mainMenu
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (MenuPanelSpec
+ name: 'ToolBar1'
+ layout: (LayoutFrame 0 0 0 0 0 1 40 0)
+ menu: toolbarMenu
+ textDefault: true
+ )
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel1'
+ layout: (LayoutFrame 0 0 40 0 0 1 0 1)
+ component:
+ (SpecCollection
+ collection: (
+ (SequenceViewSpec
+ name: 'List1'
+ model: selectedModuleIndexHolder
+ menu: moduleMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ useIndex: true
+ sequenceList: listOfModuleNames
+ )
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ translateLabel: true
+ labelChannel: descriptionLabelHolder
+ adjust: left
)
-
- )
- )
+ (LabelSpec
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 30 0 0 1 60 0)
+ translateLabel: true
+ labelChannel: middleLabelHolder
+ adjust: left
+ )
+ (DataSetSpec
+ name: 'Table1'
+ layout: (LayoutFrame 0 0 60 0 0 1 0 1)
+ visibilityChannel: table1VisibleHolder
+ model: selectedInfoIndexHolder
+ menu: moduleItemMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ dataList: infoTable1ListHolder
+ columnHolder: tableColumns
+ separatorOneDColor: (Color 66.9993133440147 66.9993133440147 66.9993133440147)
+ keepSpaceForOSXResizeHandleV: true
+ )
+ (DataSetSpec
+ name: 'Table2'
+ layout: (LayoutFrame 0 0 60 0 0 1 0 1)
+ initiallyInvisible: true
+ visibilityChannel: table2VisibleHolder
+ model: selectedInfoIndexHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ dataList: infoTable2ListHolder
+ columnHolder: tableColumnsForSingleInfo
+ separatorOneDColor: (Color 66.9993133440147 66.9993133440147 66.9993133440147)
+ keepSpaceForOSXResizeHandleV: true
+ )
+ )
+
+ )
)
-
- )
- handles: (Any 0.35195530726257 1.0)
- )
+ )
+
+ )
+ handles: (Any 0.35195530726257 1.0)
)
-
- )
- )
+ )
+
+ )
+ )
! !
!ObjectModuleInformation class methodsFor:'menu specs'!
@@ -679,6 +688,10 @@
^ canUnloadSelectedModulesPackage.
!
+descriptionLabelHolder
+ ^ builder valueAspectFor:#'descriptionLabelHolder' initialValue:''
+!
+
infoTable1ListHolder
^ builder valueAspectFor:#'infoTable1ListHolder' initialValue:#()
@@ -912,6 +925,11 @@
self middleLabelHolder value:'Components:'.
projectDefinitionClass := self selectedModulesProjectDefinitionClass.
+ projectDefinitionClass isNil ifTrue:[
+ self descriptionLabelHolder value:''.
+ ] ifFalse:[
+ self descriptionLabelHolder value:("'Description: ',"projectDefinitionClass description).
+ ].
self canBrowseSelectedModule value:true.
@@ -987,6 +1005,8 @@
|module fileName list newEntry|
+ self descriptionLabelHolder value:''.
+
sel isNil ifTrue:[
self table1VisibleHolder value:false.
self table2VisibleHolder value:false.
@@ -1083,6 +1103,7 @@
self canBrowseSelectedModule value:false.
self middleLabelHolder value:'VM Components:'.
+ self descriptionLabelHolder value:("'Description: '," 'Runtime System (VM)').
l := ObjectMemory getVMIdentificationStrings
select:[:entry | (entry includesString:'$Header')