Tools__ProjectBuilderAssistantApplication.st
changeset 2959 ab140a3e5eb6
parent 2930 60ac412ce3f8
child 2960 9b1e724cb318
equal deleted inserted replaced
2958:d842f4a91d44 2959:ab140a3e5eb6
    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 
  1843     makeProcess priority:4.
  1858     makeProcess priority:4.
  1844     makeProcess priorityRange:(4 to:8).
  1859     makeProcess priorityRange:(4 to:8).
  1845     makeProcess resume.
  1860     makeProcess resume.
  1846 !
  1861 !
  1847 
  1862 
       
  1863 doStartMakeAll
       
  1864     <resource: #uiCallback>
       
  1865 
       
  1866     self doStartMake:'all'
       
  1867 !
       
  1868 
       
  1869 doStartMakeExe
       
  1870     <resource: #uiCallback>
       
  1871 
       
  1872     self doStartMake:'exe'
       
  1873 !
       
  1874 
  1848 doStopMake
  1875 doStopMake
  1849     <resource: #uiCallback>
  1876     <resource: #uiCallback>
  1850 
  1877 
  1851     |p|
  1878     |p|
  1852 
  1879 
  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
  2232 
  2265 
  2233     newStartupClassName isNil ifTrue:[
  2266     newStartupClassName isNil ifTrue:[
  2234         newStartupClassName := ValueHolder new.
  2267         newStartupClassName := ValueHolder new.
  2235     ].
  2268     ].
  2236     ^ newStartupClassName.
  2269     ^ newStartupClassName.
       
  2270 !
       
  2271 
       
  2272 osIsOSX
       
  2273    ^ true "/ OperatingSystem isOSXlike
       
  2274 !
       
  2275 
       
  2276 osIsWindows
       
  2277    ^ OperatingSystem isMSWINDOWSlike
  2237 !
  2278 !
  2238 
  2279 
  2239 productNameHolder
  2280 productNameHolder
  2240     <resource: #uiAspect>
  2281     <resource: #uiAspect>
  2241 
  2282 
  3081 !
  3122 !
  3082 
  3123 
  3083 version_CVS
  3124 version_CVS
  3084     ^ '$Header$'
  3125     ^ '$Header$'
  3085 ! !
  3126 ! !
       
  3127