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