30 newStartupClassName usedCompilerHolder listOfNewProjectsName |
30 newStartupClassName usedCompilerHolder listOfNewProjectsName |
31 newProjectsNameListExtendedComboBox productNameHolder |
31 newProjectsNameListExtendedComboBox productNameHolder |
32 companyNameHolder compilerWarnMessageHolder |
32 companyNameHolder compilerWarnMessageHolder |
33 compilerWarnMessageVisibleHolder listOfPrerequisitesInProject |
33 compilerWarnMessageVisibleHolder listOfPrerequisitesInProject |
34 nameOfUsedCompilerSuiteHolder usedCompilerIndexHolder' |
34 nameOfUsedCompilerSuiteHolder usedCompilerIndexHolder' |
35 classVariableNames:'LastUsedCompiler' |
35 classVariableNames:'LastUsedCompiler Debugging' |
36 poolDictionaries:'' |
36 poolDictionaries:'' |
37 category:'System-Support-Projects' |
37 category:'System-Support-Projects' |
38 ! |
38 ! |
39 |
39 |
40 !ProjectBuilderAssistantApplication class methodsFor:'documentation'! |
40 !ProjectBuilderAssistantApplication class methodsFor:'documentation'! |
246 (AssistantPageSpec |
246 (AssistantPageSpec |
247 pageTitle: 'Specify Contents' |
247 pageTitle: 'Specify Contents' |
248 windowSpecSelector: page5_specifyIncludedClasses |
248 windowSpecSelector: page5_specifyIncludedClasses |
249 enterCallbackSelector: enterContentsSpecification |
249 enterCallbackSelector: enterContentsSpecification |
250 canEnterQuerySelector: #canEnterContentsSelection |
250 canEnterQuerySelector: #canEnterContentsSelection |
251 infoText: 'Define which (other) classes are to be included. Press "<I>Scan</I>" to include all classes of the package; browse to edit the contents manually.' |
251 infoText: 'Define which (other) classes are to be included. Do not include classes from other packages here. Press "<I>Scan</I>" to include all classes of the package; browse to edit the contents manually.' |
252 ) |
252 ) |
253 |
253 |
254 (AssistantPageSpec |
254 (AssistantPageSpec |
255 pageTitle: 'Specify Prerequisites' |
255 pageTitle: 'Specify Prerequisites' |
256 windowSpecSelector: page5b_specifyPrerequisitePackages |
256 windowSpecSelector: page5b_specifyPrerequisitePackages |
1064 collection: ( |
1064 collection: ( |
1065 (ActionButtonSpec |
1065 (ActionButtonSpec |
1066 label: 'Browse Project Definition' |
1066 label: 'Browse Project Definition' |
1067 name: 'Button3' |
1067 name: 'Button3' |
1068 translateLabel: true |
1068 translateLabel: true |
1069 model: doBrowseProjectDefinitionClass |
1069 model: doBrowseProjectDefinitionClassForPrereqs |
1070 extent: (Point 180 22) |
1070 extent: (Point 180 22) |
1071 ) |
1071 ) |
1072 (ActionButtonSpec |
1072 (ActionButtonSpec |
1073 label: 'Update Prerequisites (Scan)' |
1073 label: 'Update Prerequisites (Scan)' |
1074 name: 'Button4' |
1074 name: 'Button4' |
1363 verticalSpace: 3 |
1363 verticalSpace: 3 |
1364 component: |
1364 component: |
1365 (SpecCollection |
1365 (SpecCollection |
1366 collection: ( |
1366 collection: ( |
1367 (ActionButtonSpec |
1367 (ActionButtonSpec |
|
1368 label: 'Finder on Build Directory' |
|
1369 name: 'Button13' |
|
1370 activeHelpKey: openFinder |
|
1371 visibilityChannel: osIsOSX |
|
1372 translateLabel: true |
|
1373 model: doOpenFinder |
|
1374 extent: (Point 167 22) |
|
1375 ) |
|
1376 (ActionButtonSpec |
1368 label: 'Explorer on Build Directory' |
1377 label: 'Explorer on Build Directory' |
1369 name: 'Button13' |
1378 name: 'Button13' |
1370 activeHelpKey: openExplorer |
1379 activeHelpKey: openExplorer |
1371 visibilityChannel: osIsWindows |
1380 visibilityChannel: osIsWindows |
1372 translateLabel: true |
1381 translateLabel: true |
1699 ! |
1708 ! |
1700 |
1709 |
1701 doBrowseBuildDirectory |
1710 doBrowseBuildDirectory |
1702 <resource: #uiCallback> |
1711 <resource: #uiCallback> |
1703 |
1712 |
|
1713 projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
|
1714 projectBuilder buildDirectory isNil ifTrue:[ |
|
1715 Dialog information:'No build directory yet'. |
|
1716 ^ self |
|
1717 ]. |
1704 UserPreferences current fileBrowserClass |
1718 UserPreferences current fileBrowserClass |
1705 openIn:projectBuilder packageBuildDirectory asFilename |
1719 openIn:projectBuilder packageBuildDirectory asFilename |
1706 "/ projectBuilder packageBuildDirectory asFilename openExplorer |
1720 "/ projectBuilder packageBuildDirectory asFilename openExplorer |
1707 |
1721 |
1708 "Created: / 20-08-2012 / 17:05:54 / cg" |
1722 "Created: / 20-08-2012 / 17:05:54 / cg" |
1721 |
1735 |
1722 self hasProjectSelected ifTrue:[ |
1736 self hasProjectSelected ifTrue:[ |
1723 defClass := self selectedProjectDefinition. |
1737 defClass := self selectedProjectDefinition. |
1724 UserPreferences systemBrowserClass |
1738 UserPreferences systemBrowserClass |
1725 openInClass:defClass class selector:#classNamesAndAttributes. |
1739 openInClass:defClass class selector:#classNamesAndAttributes. |
|
1740 ]. |
|
1741 ! |
|
1742 |
|
1743 doBrowseProjectDefinitionClassForPrereqs |
|
1744 <resource: #uiCallback> |
|
1745 |
|
1746 |defClass| |
|
1747 |
|
1748 self hasProjectSelected ifTrue:[ |
|
1749 defClass := self selectedProjectDefinition. |
|
1750 UserPreferences systemBrowserClass |
|
1751 openInClass:defClass class selector:#preRequisites. |
1726 ]. |
1752 ]. |
1727 ! |
1753 ! |
1728 |
1754 |
1729 doBrowseStartupClass |
1755 doBrowseStartupClass |
1730 <resource: #uiCallback> |
1756 <resource: #uiCallback> |
1784 inDirectory:(projectBuilder packageBuildDirectory) |
1810 inDirectory:(projectBuilder packageBuildDirectory) |
1785 ] |
1811 ] |
1786 ! |
1812 ! |
1787 |
1813 |
1788 doOpenExplorer |
1814 doOpenExplorer |
|
1815 projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
|
1816 projectBuilder buildDirectory isNil ifTrue:[ |
|
1817 Dialog information:'No build directory yet'. |
|
1818 ^ self |
|
1819 ]. |
1789 projectBuilder packageBuildDirectory asFilename openExplorer |
1820 projectBuilder packageBuildDirectory asFilename openExplorer |
1790 |
1821 |
1791 "Modified: / 21-07-2012 / 12:29:21 / cg" |
1822 "Modified: / 21-07-2012 / 12:29:21 / cg" |
1792 ! |
1823 ! |
1793 |
1824 |
1794 doStartMakeAll |
1825 doOpenFinder |
1795 <resource: #uiCallback> |
1826 projectBuilder isNil ifTrue:[ self getProjectBuilder ]. |
1796 |
1827 projectBuilder buildDirectory isNil ifTrue:[ |
1797 self stopMakeButtonVisible value:true. |
1828 Dialog information:'No build directory yet'. |
1798 self startMakeButtonEnabled value:false. |
1829 ^ self |
1799 |
1830 ]. |
1800 self infoHolder value:'Building (make) - please wait...'. |
1831 projectBuilder packageBuildDirectory asFilename openFinder |
1801 makeOutputWindow clear. |
1832 |
1802 |
1833 "Modified: / 21-07-2012 / 12:29:21 / cg" |
1803 makeProcess := |
1834 ! |
1804 [ |
1835 |
1805 [ |
1836 doStartMake:whichTarget |
1806 self runBuildProcess:'all' |
|
1807 ] ensure:[ |
|
1808 self stopMakeButtonVisible value:false. |
|
1809 self startMakeButtonEnabled value:true. |
|
1810 makeProcess := nil. |
|
1811 self updateButtonEnableState. |
|
1812 self infoHolder value:''. |
|
1813 ]. |
|
1814 ] newProcess. |
|
1815 |
|
1816 makeProcess priority:4. |
|
1817 makeProcess priorityRange:(4 to:8). |
|
1818 makeProcess resume. |
|
1819 ! |
|
1820 |
|
1821 doStartMakeExe |
|
1822 <resource: #uiCallback> |
1837 <resource: #uiCallback> |
1823 |
1838 |
1824 self stopMakeButtonVisible value:true. |
1839 self stopMakeButtonVisible value:true. |
1825 self startMakeButtonEnabled value:false. |
1840 self startMakeButtonEnabled value:false. |
1826 |
1841 |
1915 Error handle:[:ex | |
1942 Error handle:[:ex | |
1916 makeOutputWindow endEntry. |
1943 makeOutputWindow endEntry. |
1917 makeOutputWindow cr. |
1944 makeOutputWindow cr. |
1918 makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red). |
1945 makeOutputWindow nextPutLine:(ex description colorizeAllWith:Color white on:Color red). |
1919 makeOutputWindow endEntry. |
1946 makeOutputWindow endEntry. |
|
1947 Debugging == true ifTrue:[ ex reject ]. |
1920 ex proceed. |
1948 ex proceed. |
1921 ] do:[ |
1949 ] do:[ |
1922 projectBuilder buildWithColorizedOutputTo:makeOutputWindow. |
1950 projectBuilder buildWithColorizedOutputTo:makeOutputWindow. |
1923 ]. |
1951 ]. |
1924 ]. |
1952 ]. |
|
1953 |
|
1954 " |
|
1955 Debugging := true. |
|
1956 Debugging := false. |
|
1957 " |
1925 |
1958 |
1926 "Modified: / 27-09-2012 / 14:56:38 / cg" |
1959 "Modified: / 27-09-2012 / 14:56:38 / cg" |
1927 ! |
1960 ! |
1928 |
1961 |
1929 selectedApplicationChanged |
1962 selectedApplicationChanged |