diff -r 43f28c0ce813 -r b76931b8e953 Tools__ProjectDefinitionEditor.st
--- a/Tools__ProjectDefinitionEditor.st	Wed Sep 06 18:53:28 2006 +0200
+++ b/Tools__ProjectDefinitionEditor.st	Wed Sep 06 21:50:31 2006 +0200
@@ -74,8 +74,8 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#classesSpec
-     ApplicationDefinitionEditor new openInterface:#classesSpec
+     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesSpec
+     Tools::ProjectDefinitionEditor new openInterface:#classesSpec
     "
 
     <resource: #canvas>
@@ -97,6 +97,7 @@
               name: 'ClassesTable'
               layout: (LayoutFrame 0 0 0 0 0 1 0 1)
               model: selectedClassIndexHolder
+              menu: classListMenu
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
               dataList: classList
@@ -116,8 +117,8 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#compilationSpec
-     ApplicationDefinitionEditor new openInterface:#compilationSpec
+     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#compilationSpec
+     Tools::ProjectDefinitionEditor new openInterface:#compilationSpec
     "
 
     <resource: #canvas>
@@ -138,7 +139,7 @@
            (FramedBoxSpec
               label: 'Optimization'
               name: 'FramedBox1'
-              layout: (LayoutFrame 0 0 0 0 0 1 -57 0.5)
+              layout: (LayoutFrame 0 0 0 0 0 1 93 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -183,7 +184,7 @@
            (FramedBoxSpec
               label: 'Includes'
               name: 'FramedBox2'
-              layout: (LayoutFrame 0 0 98 0 0 1 10 0.5)
+              layout: (LayoutFrame 0 0 98 0 0 1 160 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -213,8 +214,6 @@
          
         )
       )
-
-    "Modified: / 05-09-2006 / 13:28:00 / cg"
 !
 
 descriptionSpec
@@ -536,8 +535,8 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#startupSpec
-     ApplicationDefinitionEditor new openInterface:#startupSpec
+     UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#startupSpec
+     Tools::ProjectDefinitionEditor new openInterface:#startupSpec
     "
 
     <resource: #canvas>
@@ -558,7 +557,7 @@
            (FramedBoxSpec
               label: 'Startup'
               name: 'FramedBox1'
-              layout: (LayoutFrame 0 0 0 0 0 1 -57 0.5)
+              layout: (LayoutFrame 0 0 0 0 0 1 93 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -603,7 +602,7 @@
            (FramedBoxSpec
               label: 'Execution'
               name: 'FramedBox2'
-              layout: (LayoutFrame 0 0 97 0 0 1 10 0.5)
+              layout: (LayoutFrame 0 0 97 0 0 1 160 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -632,8 +631,6 @@
          
         )
       )
-
-    "Modified: / 06-09-2006 / 18:41:56 / cg"
 !
 
 windowSpec
@@ -1061,6 +1058,7 @@
        )
       (DataSetColumnSpec
          label: 'Class'
+         labelAlignment: left
          labelButtonType: Button
          model: className
          canSelect: false
@@ -1085,12 +1083,14 @@
     ^#(
       (DataSetColumnSpec
          label: 'Class'
+         labelAlignment: left
          labelButtonType: Button
          model: className
          canSelect: false
        )
       (DataSetColumnSpec
          label: 'Selector'
+         labelAlignment: left
          labelButtonType: Button
          model: selector
          canSelect: false
@@ -1107,7 +1107,7 @@
      the DataSetBuilder may not be able to read the specification."
 
     "
-     DataSetBuilder new openOnClass:ApplicationDefinitionEditor andSelector:#prerequisitesTableColumns
+     DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#prerequisitesTableColumns
     "
 
     <resource: #tableColumns>
@@ -1115,6 +1115,7 @@
     ^#(
       (DataSetColumnSpec
          label: 'Package'
+         labelAlignment: left
          labelButtonType: Button
          model: package
        )
@@ -1133,9 +1134,17 @@
 definitionClass:aClass
     definitionClass := aClass.
     self isApplicationDefinitionHolder value:( definitionClass isApplicationDefinition ).
+    self fetchValues.
 
     "Created: / 04-09-2006 / 16:30:18 / cg"
-    "Modified: / 04-09-2006 / 19:22:40 / cg"
+    "Modified: / 06-09-2006 / 19:25:15 / cg"
+!
+
+specClass:aClass
+    super specClass:aClass.
+    self definitionClass:aClass theNonMetaclass.
+
+    "Created: / 06-09-2006 / 19:24:10 / cg"
 ! !
 
 !ProjectDefinitionEditor methodsFor:'aspects'!
@@ -1638,6 +1647,15 @@
 
 !ProjectDefinitionEditor methodsFor:'menu actions'!
 
+menuGenerateClassList
+    masterApplication
+        generateProjectDefinitionsIn:(Array with:self definitionClass).
+
+    self classList value:(self fetchClassListEntries).
+
+    "Modified: / 06-09-2006 / 21:36:44 / cg"
+!
+
 menuNew
     "This method was generated by the Browser.
      It will be invoked when the menu-item 'new' is selected."
@@ -1652,6 +1670,16 @@
     "Modified: / 05-09-2006 / 16:28:51 / cg"
 !
 
+menuRemoveClass
+    |classListHolder|
+
+    classListHolder := self classList.
+    classListHolder value removeIndex:(self selectedClassIndexHolder value).
+    classListHolder changed.
+
+    "Created: / 06-09-2006 / 21:31:05 / cg"
+!
+
 menuSave
     self menuSaveAs:definitionClass name
 
@@ -1712,21 +1740,24 @@
 !ProjectDefinitionEditor methodsFor:'queries'!
 
 hasClassesTabSelected
-    ^ self selectedTabIndex == 1
+    ^ self selectedTabIndex == 2
 
     "Created: / 03-09-2006 / 11:00:39 / cg"
+    "Modified: / 06-09-2006 / 21:20:21 / cg"
 !
 
 hasExtensionsTabSelected
-    ^ self selectedTabIndex == 2
+    ^ self selectedTabIndex == 3
 
     "Created: / 05-09-2006 / 13:02:26 / cg"
+    "Modified: / 06-09-2006 / 21:20:25 / cg"
 !
 
 hasPrerequisitesTabSelected
-    ^ self selectedTabIndex == 3
+    ^ self selectedTabIndex == 4
 
     "Created: / 05-09-2006 / 13:27:16 / cg"
+    "Modified: / 06-09-2006 / 21:20:33 / cg"
 !
 
 hasUnsavedChanges
@@ -1735,6 +1766,15 @@
     "Created: / 03-09-2006 / 10:53:05 / cg"
 !
 
+selectedClass
+    |item|
+
+    item := self classList value at:(self selectedClassIndexHolder value).
+self halt.
+
+    "Created: / 06-09-2006 / 21:32:20 / cg"
+!
+
 selectedTabIndex
     ^ self selectedTabIndexHolder value