68 " |
68 " |
69 |
69 |
70 <resource: #canvas> |
70 <resource: #canvas> |
71 |
71 |
72 ^ |
72 ^ |
73 #(FullSpec |
73 #(FullSpec |
74 name: windowSpec |
74 name: windowSpec |
75 window: |
75 window: |
76 (WindowSpec |
76 (WindowSpec |
77 label: 'ST/X Module & Version Information' |
77 label: 'ST/X Module & Version Information' |
78 name: 'ST/X Module & Version Information' |
78 name: 'ST/X Module & Version Information' |
79 min: (Point 0 0) |
79 min: (Point 0 0) |
80 bounds: (Rectangle 0 0 505 567) |
80 bounds: (Rectangle 0 0 505 567) |
81 menu: mainMenu |
81 menu: mainMenu |
82 ) |
82 ) |
83 component: |
83 component: |
84 (SpecCollection |
84 (SpecCollection |
85 collection: ( |
85 collection: ( |
86 (MenuPanelSpec |
86 (MenuPanelSpec |
87 name: 'ToolBar1' |
87 name: 'ToolBar1' |
88 layout: (LayoutFrame 0 0 0 0 0 1 40 0) |
88 layout: (LayoutFrame 0 0 0 0 0 1 40 0) |
89 menu: toolbarMenu |
89 menu: toolbarMenu |
90 textDefault: true |
90 textDefault: true |
91 ) |
91 ) |
92 (VariableVerticalPanelSpec |
92 (VariableVerticalPanelSpec |
93 name: 'VariableVerticalPanel1' |
93 name: 'VariableVerticalPanel1' |
94 layout: (LayoutFrame 0 0 40 0 0 1 0 1) |
94 layout: (LayoutFrame 0 0 40 0 0 1 0 1) |
95 component: |
95 component: |
96 (SpecCollection |
96 (SpecCollection |
97 collection: ( |
97 collection: ( |
98 (SequenceViewSpec |
98 (SequenceViewSpec |
99 name: 'List1' |
99 name: 'List1' |
100 model: selectedModuleIndexHolder |
100 model: selectedModuleIndexHolder |
101 menu: moduleMenu |
101 menu: moduleMenu |
102 hasHorizontalScrollBar: true |
102 hasHorizontalScrollBar: true |
103 hasVerticalScrollBar: true |
103 hasVerticalScrollBar: true |
104 useIndex: true |
104 useIndex: true |
105 sequenceList: listOfModuleNames |
105 sequenceList: listOfModuleNames |
106 ) |
106 ) |
107 (ViewSpec |
107 (ViewSpec |
108 name: 'Box1' |
108 name: 'Box1' |
109 component: |
109 component: |
110 (SpecCollection |
110 (SpecCollection |
111 collection: ( |
111 collection: ( |
112 (LabelSpec |
112 (LabelSpec |
113 name: 'Label1' |
113 name: 'Label2' |
114 layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
114 layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
115 translateLabel: true |
115 translateLabel: true |
116 labelChannel: middleLabelHolder |
116 labelChannel: descriptionLabelHolder |
117 adjust: left |
117 adjust: left |
118 ) |
|
119 (DataSetSpec |
|
120 name: 'Table1' |
|
121 layout: (LayoutFrame 0 0 30 0 0 1 0 1) |
|
122 visibilityChannel: table1VisibleHolder |
|
123 model: selectedInfoIndexHolder |
|
124 menu: moduleItemMenu |
|
125 hasHorizontalScrollBar: true |
|
126 hasVerticalScrollBar: true |
|
127 dataList: infoTable1ListHolder |
|
128 columnHolder: tableColumns |
|
129 separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015) |
|
130 ) |
|
131 (DataSetSpec |
|
132 name: 'Table2' |
|
133 layout: (LayoutFrame 0 0 30 0 0 1 0 1) |
|
134 initiallyInvisible: true |
|
135 visibilityChannel: table2VisibleHolder |
|
136 model: selectedInfoIndexHolder |
|
137 hasHorizontalScrollBar: true |
|
138 hasVerticalScrollBar: true |
|
139 dataList: infoTable2ListHolder |
|
140 columnHolder: tableColumnsForSingleInfo |
|
141 separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015) |
|
142 ) |
|
143 ) |
118 ) |
144 |
119 (LabelSpec |
145 ) |
120 name: 'Label1' |
146 ) |
121 layout: (LayoutFrame 0 0 30 0 0 1 60 0) |
|
122 translateLabel: true |
|
123 labelChannel: middleLabelHolder |
|
124 adjust: left |
|
125 ) |
|
126 (DataSetSpec |
|
127 name: 'Table1' |
|
128 layout: (LayoutFrame 0 0 60 0 0 1 0 1) |
|
129 visibilityChannel: table1VisibleHolder |
|
130 model: selectedInfoIndexHolder |
|
131 menu: moduleItemMenu |
|
132 hasHorizontalScrollBar: true |
|
133 hasVerticalScrollBar: true |
|
134 dataList: infoTable1ListHolder |
|
135 columnHolder: tableColumns |
|
136 separatorOneDColor: (Color 66.9993133440147 66.9993133440147 66.9993133440147) |
|
137 keepSpaceForOSXResizeHandleV: true |
|
138 ) |
|
139 (DataSetSpec |
|
140 name: 'Table2' |
|
141 layout: (LayoutFrame 0 0 60 0 0 1 0 1) |
|
142 initiallyInvisible: true |
|
143 visibilityChannel: table2VisibleHolder |
|
144 model: selectedInfoIndexHolder |
|
145 hasHorizontalScrollBar: true |
|
146 hasVerticalScrollBar: true |
|
147 dataList: infoTable2ListHolder |
|
148 columnHolder: tableColumnsForSingleInfo |
|
149 separatorOneDColor: (Color 66.9993133440147 66.9993133440147 66.9993133440147) |
|
150 keepSpaceForOSXResizeHandleV: true |
|
151 ) |
|
152 ) |
|
153 |
|
154 ) |
147 ) |
155 ) |
148 |
156 ) |
149 ) |
157 |
150 handles: (Any 0.35195530726257 1.0) |
158 ) |
151 ) |
159 handles: (Any 0.35195530726257 1.0) |
152 ) |
160 ) |
153 |
161 ) |
154 ) |
162 |
155 ) |
163 ) |
|
164 ) |
156 ! ! |
165 ! ! |
157 |
166 |
158 !ObjectModuleInformation class methodsFor:'menu specs'! |
167 !ObjectModuleInformation class methodsFor:'menu specs'! |
159 |
168 |
160 mainMenu |
169 mainMenu |
910 |rows projectDefinitionClass mgr canUnload canUnloadPackage| |
923 |rows projectDefinitionClass mgr canUnload canUnloadPackage| |
911 |
924 |
912 self middleLabelHolder value:'Components:'. |
925 self middleLabelHolder value:'Components:'. |
913 |
926 |
914 projectDefinitionClass := self selectedModulesProjectDefinitionClass. |
927 projectDefinitionClass := self selectedModulesProjectDefinitionClass. |
|
928 projectDefinitionClass isNil ifTrue:[ |
|
929 self descriptionLabelHolder value:''. |
|
930 ] ifFalse:[ |
|
931 self descriptionLabelHolder value:("'Description: ',"projectDefinitionClass description). |
|
932 ]. |
915 |
933 |
916 self canBrowseSelectedModule value:true. |
934 self canBrowseSelectedModule value:true. |
917 |
935 |
918 self canBrowseSelectedModulesExtensions |
936 self canBrowseSelectedModulesExtensions |
919 value:(info classNames contains:[:nm | self isExtensionName:nm]). |
937 value:(info classNames contains:[:nm | self isExtensionName:nm]). |
1081 |
1101 |
1082 |l| |
1102 |l| |
1083 |
1103 |
1084 self canBrowseSelectedModule value:false. |
1104 self canBrowseSelectedModule value:false. |
1085 self middleLabelHolder value:'VM Components:'. |
1105 self middleLabelHolder value:'VM Components:'. |
|
1106 self descriptionLabelHolder value:("'Description: '," 'Runtime System (VM)'). |
1086 |
1107 |
1087 l := ObjectMemory getVMIdentificationStrings |
1108 l := ObjectMemory getVMIdentificationStrings |
1088 select:[:entry | (entry includesString:'$Header') |
1109 select:[:entry | (entry includesString:'$Header') |
1089 and:[entry includesString:',v']] |
1110 and:[entry includesString:',v']] |
1090 thenCollect:[:entry | |
1111 thenCollect:[:entry | |