72 |
72 |
73 "Do not manually edit this!! If it is corrupted, |
73 "Do not manually edit this!! If it is corrupted, |
74 the UIPainter may not be able to read the specification." |
74 the UIPainter may not be able to read the specification." |
75 |
75 |
76 " |
76 " |
77 UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#classesSpec |
77 UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#classesSpec |
78 ApplicationDefinitionEditor new openInterface:#classesSpec |
78 Tools::ProjectDefinitionEditor new openInterface:#classesSpec |
79 " |
79 " |
80 |
80 |
81 <resource: #canvas> |
81 <resource: #canvas> |
82 |
82 |
83 ^ |
83 ^ |
95 collection: ( |
95 collection: ( |
96 (DataSetSpec |
96 (DataSetSpec |
97 name: 'ClassesTable' |
97 name: 'ClassesTable' |
98 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
98 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
99 model: selectedClassIndexHolder |
99 model: selectedClassIndexHolder |
|
100 menu: classListMenu |
100 hasHorizontalScrollBar: true |
101 hasHorizontalScrollBar: true |
101 hasVerticalScrollBar: true |
102 hasVerticalScrollBar: true |
102 dataList: classList |
103 dataList: classList |
103 columnHolder: classesTableColumns |
104 columnHolder: classesTableColumns |
104 ) |
105 ) |
114 |
115 |
115 "Do not manually edit this!! If it is corrupted, |
116 "Do not manually edit this!! If it is corrupted, |
116 the UIPainter may not be able to read the specification." |
117 the UIPainter may not be able to read the specification." |
117 |
118 |
118 " |
119 " |
119 UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#compilationSpec |
120 UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#compilationSpec |
120 ApplicationDefinitionEditor new openInterface:#compilationSpec |
121 Tools::ProjectDefinitionEditor new openInterface:#compilationSpec |
121 " |
122 " |
122 |
123 |
123 <resource: #canvas> |
124 <resource: #canvas> |
124 |
125 |
125 ^ |
126 ^ |
534 |
533 |
535 "Do not manually edit this!! If it is corrupted, |
534 "Do not manually edit this!! If it is corrupted, |
536 the UIPainter may not be able to read the specification." |
535 the UIPainter may not be able to read the specification." |
537 |
536 |
538 " |
537 " |
539 UIPainter new openOnClass:ApplicationDefinitionEditor andSelector:#startupSpec |
538 UIPainter new openOnClass:Tools::ProjectDefinitionEditor andSelector:#startupSpec |
540 ApplicationDefinitionEditor new openInterface:#startupSpec |
539 Tools::ProjectDefinitionEditor new openInterface:#startupSpec |
541 " |
540 " |
542 |
541 |
543 <resource: #canvas> |
542 <resource: #canvas> |
544 |
543 |
545 ^ |
544 ^ |
1105 |
1105 |
1106 "Do not manually edit this!! If it is corrupted, |
1106 "Do not manually edit this!! If it is corrupted, |
1107 the DataSetBuilder may not be able to read the specification." |
1107 the DataSetBuilder may not be able to read the specification." |
1108 |
1108 |
1109 " |
1109 " |
1110 DataSetBuilder new openOnClass:ApplicationDefinitionEditor andSelector:#prerequisitesTableColumns |
1110 DataSetBuilder new openOnClass:Tools::ProjectDefinitionEditor andSelector:#prerequisitesTableColumns |
1111 " |
1111 " |
1112 |
1112 |
1113 <resource: #tableColumns> |
1113 <resource: #tableColumns> |
1114 |
1114 |
1115 ^#( |
1115 ^#( |
1116 (DataSetColumnSpec |
1116 (DataSetColumnSpec |
1117 label: 'Package' |
1117 label: 'Package' |
|
1118 labelAlignment: left |
1118 labelButtonType: Button |
1119 labelButtonType: Button |
1119 model: package |
1120 model: package |
1120 ) |
1121 ) |
1121 ) |
1122 ) |
1122 |
1123 |
1131 ! |
1132 ! |
1132 |
1133 |
1133 definitionClass:aClass |
1134 definitionClass:aClass |
1134 definitionClass := aClass. |
1135 definitionClass := aClass. |
1135 self isApplicationDefinitionHolder value:( definitionClass isApplicationDefinition ). |
1136 self isApplicationDefinitionHolder value:( definitionClass isApplicationDefinition ). |
|
1137 self fetchValues. |
1136 |
1138 |
1137 "Created: / 04-09-2006 / 16:30:18 / cg" |
1139 "Created: / 04-09-2006 / 16:30:18 / cg" |
1138 "Modified: / 04-09-2006 / 19:22:40 / cg" |
1140 "Modified: / 06-09-2006 / 19:25:15 / cg" |
|
1141 ! |
|
1142 |
|
1143 specClass:aClass |
|
1144 super specClass:aClass. |
|
1145 self definitionClass:aClass theNonMetaclass. |
|
1146 |
|
1147 "Created: / 06-09-2006 / 19:24:10 / cg" |
1139 ! ! |
1148 ! ! |
1140 |
1149 |
1141 !ProjectDefinitionEditor methodsFor:'aspects'! |
1150 !ProjectDefinitionEditor methodsFor:'aspects'! |
1142 |
1151 |
1143 classList |
1152 classList |
1636 ^ super postOpenWith:aBuilder |
1645 ^ super postOpenWith:aBuilder |
1637 ! ! |
1646 ! ! |
1638 |
1647 |
1639 !ProjectDefinitionEditor methodsFor:'menu actions'! |
1648 !ProjectDefinitionEditor methodsFor:'menu actions'! |
1640 |
1649 |
|
1650 menuGenerateClassList |
|
1651 masterApplication |
|
1652 generateProjectDefinitionsIn:(Array with:self definitionClass). |
|
1653 |
|
1654 self classList value:(self fetchClassListEntries). |
|
1655 |
|
1656 "Modified: / 06-09-2006 / 21:36:44 / cg" |
|
1657 ! |
|
1658 |
1641 menuNew |
1659 menuNew |
1642 "This method was generated by the Browser. |
1660 "This method was generated by the Browser. |
1643 It will be invoked when the menu-item 'new' is selected." |
1661 It will be invoked when the menu-item 'new' is selected." |
1644 |
1662 |
1645 "/ change below and add any actions as required here ... |
1663 "/ change below and add any actions as required here ... |
1648 |
1666 |
1649 menuOpen |
1667 menuOpen |
1650 self warn:'no action for ''open'' defined.'. |
1668 self warn:'no action for ''open'' defined.'. |
1651 |
1669 |
1652 "Modified: / 05-09-2006 / 16:28:51 / cg" |
1670 "Modified: / 05-09-2006 / 16:28:51 / cg" |
|
1671 ! |
|
1672 |
|
1673 menuRemoveClass |
|
1674 |classListHolder| |
|
1675 |
|
1676 classListHolder := self classList. |
|
1677 classListHolder value removeIndex:(self selectedClassIndexHolder value). |
|
1678 classListHolder changed. |
|
1679 |
|
1680 "Created: / 06-09-2006 / 21:31:05 / cg" |
1653 ! |
1681 ! |
1654 |
1682 |
1655 menuSave |
1683 menuSave |
1656 self menuSaveAs:definitionClass name |
1684 self menuSaveAs:definitionClass name |
1657 |
1685 |
1710 ! ! |
1738 ! ! |
1711 |
1739 |
1712 !ProjectDefinitionEditor methodsFor:'queries'! |
1740 !ProjectDefinitionEditor methodsFor:'queries'! |
1713 |
1741 |
1714 hasClassesTabSelected |
1742 hasClassesTabSelected |
1715 ^ self selectedTabIndex == 1 |
1743 ^ self selectedTabIndex == 2 |
1716 |
1744 |
1717 "Created: / 03-09-2006 / 11:00:39 / cg" |
1745 "Created: / 03-09-2006 / 11:00:39 / cg" |
|
1746 "Modified: / 06-09-2006 / 21:20:21 / cg" |
1718 ! |
1747 ! |
1719 |
1748 |
1720 hasExtensionsTabSelected |
1749 hasExtensionsTabSelected |
1721 ^ self selectedTabIndex == 2 |
1750 ^ self selectedTabIndex == 3 |
1722 |
1751 |
1723 "Created: / 05-09-2006 / 13:02:26 / cg" |
1752 "Created: / 05-09-2006 / 13:02:26 / cg" |
|
1753 "Modified: / 06-09-2006 / 21:20:25 / cg" |
1724 ! |
1754 ! |
1725 |
1755 |
1726 hasPrerequisitesTabSelected |
1756 hasPrerequisitesTabSelected |
1727 ^ self selectedTabIndex == 3 |
1757 ^ self selectedTabIndex == 4 |
1728 |
1758 |
1729 "Created: / 05-09-2006 / 13:27:16 / cg" |
1759 "Created: / 05-09-2006 / 13:27:16 / cg" |
|
1760 "Modified: / 06-09-2006 / 21:20:33 / cg" |
1730 ! |
1761 ! |
1731 |
1762 |
1732 hasUnsavedChanges |
1763 hasUnsavedChanges |
1733 ^ false |
1764 ^ false |
1734 |
1765 |
1735 "Created: / 03-09-2006 / 10:53:05 / cg" |
1766 "Created: / 03-09-2006 / 10:53:05 / cg" |
|
1767 ! |
|
1768 |
|
1769 selectedClass |
|
1770 |item| |
|
1771 |
|
1772 item := self classList value at:(self selectedClassIndexHolder value). |
|
1773 self halt. |
|
1774 |
|
1775 "Created: / 06-09-2006 / 21:32:20 / cg" |
1736 ! |
1776 ! |
1737 |
1777 |
1738 selectedTabIndex |
1778 selectedTabIndex |
1739 ^ self selectedTabIndexHolder value |
1779 ^ self selectedTabIndexHolder value |
1740 |
1780 |