diff -r 1b840afa3fd7 -r e8e52581e0cb Tools__ObjectModuleInformation.st
--- 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')