ProjectBrowser.st
changeset 1095 660185e02224
parent 1094 b1214f3dc633
child 1096 7efff9ca044f
equal deleted inserted replaced
1094:b1214f3dc633 1095:660185e02224
  1326           ) nil
  1326           ) nil
  1327           nil
  1327           nil
  1328       )
  1328       )
  1329 ! !
  1329 ! !
  1330 
  1330 
       
  1331 !ProjectBrowser class methodsFor:'startup'!
       
  1332 
       
  1333 openOnFile:aFilename
       
  1334     |browser nodes|
       
  1335 
       
  1336     browser := self new.
       
  1337     browser allButOpen.
       
  1338     browser loadFromProjectFile:aFilename.
       
  1339     nodes := browser projectTreeHolder root children.
       
  1340     nodes size > 0 ifTrue:[
       
  1341 "/        browser projectTreeHolder selectNode:nodes first.
       
  1342         browser projectTreeHolder expand:nodes first.
       
  1343     ].
       
  1344 
       
  1345     browser openWindow
       
  1346 ! !
       
  1347 
  1331 !ProjectBrowser class methodsFor:'tableColumns specs'!
  1348 !ProjectBrowser class methodsFor:'tableColumns specs'!
  1332 
  1349 
  1333 classTableColumns
  1350 classTableColumns
  1334     "This resource specification was automatically generated
  1351     "This resource specification was automatically generated
  1335      by the DataSetBuilder of ST/X."
  1352      by the DataSetBuilder of ST/X."
  1443 !
  1460 !
  1444 
  1461 
  1445 classList
  1462 classList
  1446     "automatically generated by UIPainter ..."
  1463     "automatically generated by UIPainter ..."
  1447 
  1464 
  1448     "*** the code below creates a default model when invoked."
       
  1449     "*** (which may not be the one you wanted)"
       
  1450     "*** Please change as required and accept in the browser."
       
  1451 
       
  1452     |holder|
  1465     |holder|
  1453 
  1466 
  1454     (holder := builder bindingAt:#classList) isNil ifTrue:[
  1467     (holder := builder bindingAt:#classList) isNil ifTrue:[
  1455         builder aspectAt:#classList put:(holder :=  List new).
  1468         builder aspectAt:#classList put:(holder :=  List new).
  1456     ].
  1469     ].
  1466 !
  1479 !
  1467 
  1480 
  1468 currentCanvasHolder
  1481 currentCanvasHolder
  1469     "automatically generated by UIPainter ..."
  1482     "automatically generated by UIPainter ..."
  1470 
  1483 
  1471     "*** the code below creates a default model when invoked."
       
  1472     "*** (which may not be the one you wanted)"
       
  1473     "*** Please change as required and accept in the browser."
       
  1474 
       
  1475     |holder|
  1484     |holder|
  1476 
  1485 
  1477     (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
  1486     (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[
  1478         builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).
  1487         builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).
  1479     ].
  1488     ].
  1481 !
  1490 !
  1482 
  1491 
  1483 currentProjectWasNotLoadedFromFile
  1492 currentProjectWasNotLoadedFromFile
  1484     "automatically generated by UIPainter ..."
  1493     "automatically generated by UIPainter ..."
  1485 
  1494 
  1486     "*** the code below creates a default model when invoked."
       
  1487     "*** (which may not be the one you wanted)"
       
  1488     "*** Please change as required and accept in the browser."
       
  1489 
       
  1490     |holder|
  1495     |holder|
  1491 
  1496 
  1492     (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
  1497     (holder := builder bindingAt:#currentProjectWasNotLoadedFromFile) isNil ifTrue:[
  1493         builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder :=  ValueHolder new).
  1498         builder aspectAt:#currentProjectWasNotLoadedFromFile put:(holder :=  ValueHolder new).
  1494     ].
  1499     ].
  1497     "Created: / 23.3.1999 / 14:01:09 / cg"
  1502     "Created: / 23.3.1999 / 14:01:09 / cg"
  1498 !
  1503 !
  1499 
  1504 
  1500 deliverCompiledBinary
  1505 deliverCompiledBinary
  1501     "automatically generated by UIPainter ..."
  1506     "automatically generated by UIPainter ..."
  1502 
       
  1503     "*** the code below creates a default model when invoked."
       
  1504     "*** (which may not be the one you wanted)"
       
  1505     "*** Please change as required and accept in the browser."
       
  1506 
  1507 
  1507     |holder|
  1508     |holder|
  1508 
  1509 
  1509     (holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
  1510     (holder := builder bindingAt:#deliverCompiledBinary) isNil ifTrue:[
  1510         builder aspectAt:#deliverCompiledBinary put:(holder :=  ValueHolder new).
  1511         builder aspectAt:#deliverCompiledBinary put:(holder :=  ValueHolder new).
  1516 !
  1517 !
  1517 
  1518 
  1518 deliverGZipArchive
  1519 deliverGZipArchive
  1519     "automatically generated by UIPainter ..."
  1520     "automatically generated by UIPainter ..."
  1520 
  1521 
  1521     "*** the code below creates a default model when invoked."
       
  1522     "*** (which may not be the one you wanted)"
       
  1523     "*** Please change as required and accept in the browser."
       
  1524 
       
  1525     |holder|
  1522     |holder|
  1526 
  1523 
  1527     (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
  1524     (holder := builder bindingAt:#deliverGZipArchive) isNil ifTrue:[
  1528         builder aspectAt:#deliverGZipArchive put:(holder :=  ValueHolder new).
  1525         builder aspectAt:#deliverGZipArchive put:(holder :=  ValueHolder new).
  1529         holder onChangeSend:#value to:[modifiedChannel value:true].
  1526         holder onChangeSend:#value to:[modifiedChannel value:true].
  1534 !
  1531 !
  1535 
  1532 
  1536 deliverLoadAllFile
  1533 deliverLoadAllFile
  1537     "automatically generated by UIPainter ..."
  1534     "automatically generated by UIPainter ..."
  1538 
  1535 
  1539     "*** the code below creates a default model when invoked."
       
  1540     "*** (which may not be the one you wanted)"
       
  1541     "*** Please change as required and accept in the browser."
       
  1542 
       
  1543     |holder|
  1536     |holder|
  1544 
  1537 
  1545     (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
  1538     (holder := builder bindingAt:#deliverLoadAllFile) isNil ifTrue:[
  1546         builder aspectAt:#deliverLoadAllFile put:(holder :=  ValueHolder new).
  1539         builder aspectAt:#deliverLoadAllFile put:(holder :=  ValueHolder new).
  1547         holder onChangeSend:#value to:[modifiedChannel value:true].
  1540         holder onChangeSend:#value to:[modifiedChannel value:true].
  1552 !
  1545 !
  1553 
  1546 
  1554 deliverSources
  1547 deliverSources
  1555     "automatically generated by UIPainter ..."
  1548     "automatically generated by UIPainter ..."
  1556 
  1549 
  1557     "*** the code below creates a default model when invoked."
       
  1558     "*** (which may not be the one you wanted)"
       
  1559     "*** Please change as required and accept in the browser."
       
  1560 
       
  1561     |holder|
  1550     |holder|
  1562 
  1551 
  1563     (holder := builder bindingAt:#deliverSources) isNil ifTrue:[
  1552     (holder := builder bindingAt:#deliverSources) isNil ifTrue:[
  1564         builder aspectAt:#deliverSources put:(holder :=  ValueHolder new).
  1553         builder aspectAt:#deliverSources put:(holder :=  ValueHolder new).
  1565         holder onChangeSend:#value to:[modifiedChannel value:true].
  1554         holder onChangeSend:#value to:[modifiedChannel value:true].
  1569     "Created: / 23.3.1999 / 14:18:05 / cg"
  1558     "Created: / 23.3.1999 / 14:18:05 / cg"
  1570 !
  1559 !
  1571 
  1560 
  1572 deliverZipArchive
  1561 deliverZipArchive
  1573     "automatically generated by UIPainter ..."
  1562     "automatically generated by UIPainter ..."
  1574 
       
  1575     "*** the code below creates a default model when invoked."
       
  1576     "*** (which may not be the one you wanted)"
       
  1577     "*** Please change as required and accept in the browser."
       
  1578 
  1563 
  1579     |holder|
  1564     |holder|
  1580 
  1565 
  1581     (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
  1566     (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[
  1582         builder aspectAt:#deliverZipArchive put:(holder :=  ValueHolder new).
  1567         builder aspectAt:#deliverZipArchive put:(holder :=  ValueHolder new).
  1600 !
  1585 !
  1601 
  1586 
  1602 htmlDocumentURLHolder
  1587 htmlDocumentURLHolder
  1603     "automatically generated by UIPainter ..."
  1588     "automatically generated by UIPainter ..."
  1604 
  1589 
  1605     "*** the code below creates a default model when invoked."
       
  1606     "*** (which may not be the one you wanted)"
       
  1607     "*** Please change as required and accept in the browser."
       
  1608 
       
  1609     |holder|
  1590     |holder|
  1610 
  1591 
  1611     (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
  1592     (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
  1612         builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
  1593         builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
  1613     ].
  1594     ].
  1614     ^ holder.
  1595     ^ holder.
  1615 !
  1596 !
  1616 
  1597 
  1617 installDirectory
  1598 installDirectory
  1618     "automatically generated by UIPainter ..."
  1599     "automatically generated by UIPainter ..."
  1619 
       
  1620     "*** the code below creates a default model when invoked."
       
  1621     "*** (which may not be the one you wanted)"
       
  1622     "*** Please change as required and accept in the browser."
       
  1623 
  1600 
  1624     |holder|
  1601     |holder|
  1625 
  1602 
  1626     (holder := builder bindingAt:#installDirectory) isNil ifTrue:[
  1603     (holder := builder bindingAt:#installDirectory) isNil ifTrue:[
  1627         builder aspectAt:#installDirectory put:(holder := '/opt' asValue).
  1604         builder aspectAt:#installDirectory put:(holder := '/opt' asValue).
  1632     "Created: / 23.3.1999 / 14:18:05 / cg"
  1609     "Created: / 23.3.1999 / 14:18:05 / cg"
  1633 !
  1610 !
  1634 
  1611 
  1635 listOfAllProjectsInPrerequisites
  1612 listOfAllProjectsInPrerequisites
  1636     "automatically generated by UIPainter ..."
  1613     "automatically generated by UIPainter ..."
  1637 
       
  1638     "*** the code below creates a default model when invoked."
       
  1639     "*** (which may not be the one you wanted)"
       
  1640     "*** Please change as required and accept in the browser."
       
  1641 
  1614 
  1642     |holder projects currentProject|
  1615     |holder projects currentProject|
  1643 
  1616 
  1644     (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[
  1617     (holder := builder bindingAt:#listOfAllProjectsInPrerequisites) isNil ifTrue:[
  1645         builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := List new).
  1618         builder aspectAt:#listOfAllProjectsInPrerequisites put:(holder := List new).
  1662 !
  1635 !
  1663 
  1636 
  1664 listOfRequiredProjectsInPrerequisites
  1637 listOfRequiredProjectsInPrerequisites
  1665     "automatically generated by UIPainter ..."
  1638     "automatically generated by UIPainter ..."
  1666 
  1639 
  1667     "*** the code below creates a default model when invoked."
       
  1668     "*** (which may not be the one you wanted)"
       
  1669     "*** Please change as required and accept in the browser."
       
  1670 
       
  1671     |holder|
  1640     |holder|
  1672 
  1641 
  1673     (holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[
  1642     (holder := builder bindingAt:#listOfRequiredProjectsInPrerequisites) isNil ifTrue:[
  1674         builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := List new).
  1643         builder aspectAt:#listOfRequiredProjectsInPrerequisites put:(holder := List new).
  1675     ].
  1644     ].
  1679 !
  1648 !
  1680 
  1649 
  1681 modifiedChannel
  1650 modifiedChannel
  1682     "automatically generated by UIPainter ..."
  1651     "automatically generated by UIPainter ..."
  1683 
  1652 
  1684     "*** the code below creates a default model when invoked."
       
  1685     "*** (which may not be the one you wanted)"
       
  1686     "*** Please change as required and accept in the browser."
       
  1687 
       
  1688     modifiedChannel isNil ifTrue:[
  1653     modifiedChannel isNil ifTrue:[
  1689         modifiedChannel := false asValue.
  1654         modifiedChannel := false asValue.
  1690     ].
  1655     ].
  1691     ^ modifiedChannel.
  1656     ^ modifiedChannel.
  1692 
  1657 
  1693 !
  1658 !
  1694 
  1659 
  1695 patchesList
  1660 patchesList
  1696     "automatically generated by UIPainter ..."
  1661     "automatically generated by UIPainter ..."
  1697 
  1662 
  1698     "*** the code below creates a default model when invoked."
       
  1699     "*** (which may not be the one you wanted)"
       
  1700     "*** Please change as required and accept in the browser."
       
  1701 
       
  1702     |holder|
  1663     |holder|
  1703 
  1664 
  1704     (holder := builder bindingAt:#patchesList) isNil ifTrue:[
  1665     (holder := builder bindingAt:#patchesList) isNil ifTrue:[
  1705         builder aspectAt:#patchesList put:(holder :=  List new).
  1666         builder aspectAt:#patchesList put:(holder :=  List new).
  1706     ].
  1667     ].
  1707     ^ holder.
  1668     ^ holder.
  1708 !
  1669 !
  1709 
  1670 
  1710 projectDirectory
  1671 projectDirectory
  1711     "automatically generated by UIPainter ..."
  1672     "automatically generated by UIPainter ..."
  1712 
       
  1713     "*** the code below creates a default model when invoked."
       
  1714     "*** (which may not be the one you wanted)"
       
  1715     "*** Please change as required and accept in the browser."
       
  1716 
  1673 
  1717     |holder|
  1674     |holder|
  1718 
  1675 
  1719     (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
  1676     (holder := builder bindingAt:#projectDirectory) isNil ifTrue:[
  1720         builder aspectAt:#projectDirectory put:(holder := '.' asValue).
  1677         builder aspectAt:#projectDirectory put:(holder := '.' asValue).
  1726 !
  1683 !
  1727 
  1684 
  1728 projectNamespace
  1685 projectNamespace
  1729     "automatically generated by UIPainter ..."
  1686     "automatically generated by UIPainter ..."
  1730 
  1687 
  1731     "*** the code below creates a default model when invoked."
       
  1732     "*** (which may not be the one you wanted)"
       
  1733     "*** Please change as required and accept in the browser."
       
  1734 
       
  1735     |holder|
  1688     |holder|
  1736 
  1689 
  1737     (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
  1690     (holder := builder bindingAt:#projectNamespace) isNil ifTrue:[
  1738         builder aspectAt:#projectNamespace put:(holder :=  ValueHolder new).
  1691         builder aspectAt:#projectNamespace put:(holder :=  ValueHolder new).
  1739         holder onChangeSend:#value to:[modifiedChannel value:true].
  1692         holder onChangeSend:#value to:[modifiedChannel value:true].
  1744 !
  1697 !
  1745 
  1698 
  1746 projectTreeHolder
  1699 projectTreeHolder
  1747     "automatically generated by UIPainter ..."
  1700     "automatically generated by UIPainter ..."
  1748 
  1701 
  1749     "*** the code below creates a default model when invoked."
       
  1750     "*** (which may not be the one you wanted)"
       
  1751     "*** Please change as required and accept in the browser."
       
  1752 
       
  1753     |holder|
  1702     |holder|
  1754 
  1703 
  1755     (holder := builder bindingAt:#projectTree) isNil ifTrue:[
  1704     (holder := builder bindingAt:#projectTree) isNil ifTrue:[
  1756         builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).
  1705         builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).
  1757         holder root:self projectTree.
  1706         holder root:self projectTree.
  1760 !
  1709 !
  1761 
  1710 
  1762 projectType
  1711 projectType
  1763     "automatically generated by UIPainter ..."
  1712     "automatically generated by UIPainter ..."
  1764 
  1713 
  1765     "*** the code below creates a default model when invoked."
       
  1766     "*** (which may not be the one you wanted)"
       
  1767     "*** Please change as required and accept in the browser."
       
  1768 
       
  1769     |holder|
  1714     |holder|
  1770 
  1715 
  1771     (holder := builder bindingAt:#projectType) isNil ifTrue:[
  1716     (holder := builder bindingAt:#projectType) isNil ifTrue:[
  1772         builder aspectAt:#projectType put:(holder :=  ValueHolder new).
  1717         builder aspectAt:#projectType put:(holder :=  ValueHolder new).
  1773         holder onChangeSend:#value to:[modifiedChannel value:true].
  1718         holder onChangeSend:#value to:[modifiedChannel value:true].
  1778 !
  1723 !
  1779 
  1724 
  1780 repositoryDirectory
  1725 repositoryDirectory
  1781     "automatically generated by UIPainter ..."
  1726     "automatically generated by UIPainter ..."
  1782 
  1727 
  1783     "*** the code below creates a default model when invoked."
       
  1784     "*** (which may not be the one you wanted)"
       
  1785     "*** Please change as required and accept in the browser."
       
  1786 
       
  1787     |holder|
  1728     |holder|
  1788 
  1729 
  1789     (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
  1730     (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[
  1790         builder aspectAt:#repositoryDirectory put:(holder :=  ValueHolder new).
  1731         builder aspectAt:#repositoryDirectory put:(holder :=  ValueHolder new).
  1791         holder onChangeSend:#value to:[modifiedChannel value:true].
  1732         holder onChangeSend:#value to:[modifiedChannel value:true].
  1796 !
  1737 !
  1797 
  1738 
  1798 repositoryModule
  1739 repositoryModule
  1799     "automatically generated by UIPainter ..."
  1740     "automatically generated by UIPainter ..."
  1800 
  1741 
  1801     "*** the code below creates a default model when invoked."
       
  1802     "*** (which may not be the one you wanted)"
       
  1803     "*** Please change as required and accept in the browser."
       
  1804 
       
  1805     |holder|
  1742     |holder|
  1806 
  1743 
  1807     (holder := builder bindingAt:#repositoryModule) isNil ifTrue:[
  1744     (holder := builder bindingAt:#repositoryModule) isNil ifTrue:[
  1808         builder aspectAt:#repositoryModule put:(holder :=  ValueHolder new).
  1745         builder aspectAt:#repositoryModule put:(holder :=  ValueHolder new).
  1809         holder onChangeSend:#value to:[modifiedChannel value:true].
  1746         holder onChangeSend:#value to:[modifiedChannel value:true].
  1814 !
  1751 !
  1815 
  1752 
  1816 rightCanvasTextHolder
  1753 rightCanvasTextHolder
  1817     "automatically generated by UIPainter ..."
  1754     "automatically generated by UIPainter ..."
  1818 
  1755 
  1819     "*** the code below creates a default model when invoked."
       
  1820     "*** (which may not be the one you wanted)"
       
  1821     "*** Please change as required and accept in the browser."
       
  1822 
       
  1823     |holder|
  1756     |holder|
  1824 
  1757 
  1825     (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
  1758     (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[
  1826         builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).
  1759         builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).
  1827     ].
  1760     ].
  1829 !
  1762 !
  1830 
  1763 
  1831 selectedProjectInPrerequisites
  1764 selectedProjectInPrerequisites
  1832     "automatically generated by UIPainter ..."
  1765     "automatically generated by UIPainter ..."
  1833 
  1766 
  1834     "*** the code below creates a default model when invoked."
       
  1835     "*** (which may not be the one you wanted)"
       
  1836     "*** Please change as required and accept in the browser."
       
  1837 
       
  1838     |holder|
  1767     |holder|
  1839 
  1768 
  1840     (holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[
  1769     (holder := builder bindingAt:#selectedProjectInPrerequisites) isNil ifTrue:[
  1841         builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
  1770         builder aspectAt:#selectedProjectInPrerequisites put:(holder := ValueHolder new).
  1842     ].
  1771     ].
  1846 !
  1775 !
  1847 
  1776 
  1848 selectedRequiredProjectInPrerequisites
  1777 selectedRequiredProjectInPrerequisites
  1849     "automatically generated by UIPainter ..."
  1778     "automatically generated by UIPainter ..."
  1850 
  1779 
  1851     "*** the code below creates a default model when invoked."
       
  1852     "*** (which may not be the one you wanted)"
       
  1853     "*** Please change as required and accept in the browser."
       
  1854 
       
  1855     |holder|
  1780     |holder|
  1856 
  1781 
  1857     (holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[
  1782     (holder := builder bindingAt:#selectedRequiredProjectInPrerequisites) isNil ifTrue:[
  1858         builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
  1783         builder aspectAt:#selectedRequiredProjectInPrerequisites put:(holder := ValueHolder new).
  1859     ].
  1784     ].
  1862     "Created: / 23.3.1999 / 14:18:05 / cg"
  1787     "Created: / 23.3.1999 / 14:18:05 / cg"
  1863 !
  1788 !
  1864 
  1789 
  1865 selectedTreeNode
  1790 selectedTreeNode
  1866     "automatically generated by UIPainter ..."
  1791     "automatically generated by UIPainter ..."
  1867 
       
  1868     "*** the code below creates a default model when invoked."
       
  1869     "*** (which may not be the one you wanted)"
       
  1870     "*** Please change as required and accept in the browser."
       
  1871 
  1792 
  1872     |holder|
  1793     |holder|
  1873 
  1794 
  1874     (holder := builder bindingAt:#selectedTreeNode) isNil ifTrue:[
  1795     (holder := builder bindingAt:#selectedTreeNode) isNil ifTrue:[
  1875         builder aspectAt:#selectedTreeNode put:(holder :=  ValueHolder new).
  1796         builder aspectAt:#selectedTreeNode put:(holder :=  ValueHolder new).
  1901 !ProjectBrowser methodsFor:'initialization'!
  1822 !ProjectBrowser methodsFor:'initialization'!
  1902 
  1823 
  1903 postBuildWith:aBuiler
  1824 postBuildWith:aBuiler
  1904     self modifiedChannel value:false.
  1825     self modifiedChannel value:false.
  1905 
  1826 
  1906     self setupCanvasForNoSelection.
  1827     self updateRightCanvas.
  1907     ^ super postBuildWith:aBuiler
  1828     ^ super postBuildWith:aBuiler
  1908 !
  1829 !
  1909 
  1830 
  1910 setupCanvasForNoSelection
  1831 setupCanvasForNoSelection
  1911     self 
  1832     self 
  2322     action notNil ifTrue:[
  2243     action notNil ifTrue:[
  2323         action value:item.
  2244         action value:item.
  2324     ].
  2245     ].
  2325 !
  2246 !
  2326 
  2247 
       
  2248 loadClassesFromDirectory
       
  2249     "load all classes as contained in the project into the system"
       
  2250 
       
  2251     |p ns cls|
       
  2252 
       
  2253     p := self currentProject.
       
  2254     ns := p defaultNameSpace.
       
  2255     p classInfo do:[:clsInfo |
       
  2256         |clsName clsFileName|
       
  2257 
       
  2258         clsName := clsInfo className.
       
  2259         clsFileName := clsInfo classFileName.
       
  2260         clsFileName isNil ifTrue:[clsFileName := clsName , '.st'].
       
  2261 
       
  2262         clsName isSymbol ifTrue:[
       
  2263             cls := ns at:clsName.
       
  2264             cls isNil ifTrue:[
       
  2265                 "/ ok - really not yet loaded.
       
  2266                 Transcript showCR:'loading ' , (p directory asFilename construct:clsFileName) pathName , ' ...'.
       
  2267                 Smalltalk fileIn:(p directory asFilename construct:clsFileName)
       
  2268             ] ifFalse:[
       
  2269                 self halt
       
  2270             ].
       
  2271         ] ifFalse:[
       
  2272             self halt
       
  2273         ].
       
  2274     ].
       
  2275 
       
  2276     self halt.
       
  2277 
       
  2278 !
       
  2279 
       
  2280 loadFromProjectFile:aFilenameString
       
  2281     |newProject|
       
  2282 
       
  2283     newProject := Project new loadFromProjectFile:aFilenameString.
       
  2284     newProject notNil ifTrue:[
       
  2285         self newProject:newProject
       
  2286     ]
       
  2287 !
       
  2288 
  2327 makeCurrentProject
  2289 makeCurrentProject
  2328     "make the selected Project the current project"
  2290     "make the selected Project the current project"
  2329 
  2291 
  2330     |project selectedNode|
  2292     |project selectedNode|
  2331 
  2293 
  2346     |newNode|
  2308     |newNode|
  2347 
  2309 
  2348     newNode := self nodeFor:newProject.
  2310     newNode := self nodeFor:newProject.
  2349     projectTree add:newNode.
  2311     projectTree add:newNode.
  2350     self projectTreeHolder root:projectTree.
  2312     self projectTreeHolder root:projectTree.
  2351 
  2313 "/    self projectTreeHolder selectNode:newNode.
       
  2314 "/    self projectTreeHolder expand:newNode.
  2352 !
  2315 !
  2353 
  2316 
  2354 newSubProject
  2317 newSubProject
  2355     |selectedNode subProjectsNode newNode parentProject newProject|
  2318     |selectedNode subProjectsNode newNode parentProject newProject|
  2356 
  2319 
  2376         self projectTreeHolder selectNode:newNode.
  2339         self projectTreeHolder selectNode:newNode.
  2377     ]    
  2340     ]    
  2378 !
  2341 !
  2379 
  2342 
  2380 openProject
  2343 openProject
  2381     |fn newProject|
  2344     |fn|
  2382 
  2345 
  2383     fn := Dialog 
  2346     fn := Dialog 
  2384         requestFileName:'filename:' 
  2347         requestFileName:'filename:' 
  2385         default:nil
  2348         default:nil
  2386         ifFail:nil
  2349         ifFail:nil
  2387         pattern:'*.prj'
  2350         pattern:'*.prj'
  2388         fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
  2351         fromDirectory:(FileSelectionBox lastFileSelectionDirectory).
  2389 
  2352 
  2390     fn notNil ifTrue:[
  2353     fn notNil ifTrue:[
  2391         newProject := Project new loadFromProjectFile:fn.
  2354         self loadFromProjectFile:fn.
  2392         newProject notNil ifTrue:[
       
  2393             self newProject:newProject
       
  2394         ]
       
  2395     ]
  2355     ]
  2396 !
  2356 !
  2397 
  2357 
  2398 removeFromPrerequisites
  2358 removeFromPrerequisites
  2399     |sel|
  2359     |sel|