1 "{ Package: 'stx:libtool2' }" |
1 "{ Package: 'stx:libtool2' }" |
2 |
2 |
3 "{ NameSpace: Tools }" |
3 "{ NameSpace: Tools }" |
4 |
4 |
5 AssistantApplication subclass:#ProjectBuilderAssistantApplication |
5 AssistantApplication subclass:#ProjectBuilderAssistantApplication |
6 instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder |
6 instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder |
7 selectedProjectIndexHolder selectedProjectDefinition |
7 selectedProjectIndexHolder selectedProjectDefinition |
8 listOfMatchingProjects listOfMatchingPackageIds |
8 listOfMatchingProjects listOfMatchingPackageIds |
9 selectedProjectsComment hasProjectSelectedHolder newProjectsName |
9 selectedProjectsComment hasProjectSelectedHolder newProjectsName |
10 hideSTXProjects hideOtherApplicationClasses |
10 hideSTXProjects hideOtherApplicationClasses |
11 hideOtherStartupClasses startMakeButtonEnabled |
11 hideOtherStartupClasses startMakeButtonEnabled |
12 stopMakeButtonVisible makeOutputHolder newApplicationsName |
12 stopMakeButtonVisible makeOutputHolder newApplicationsName |
13 listOfApplicationsInProject selectedApplicationIndexHolder |
13 listOfApplicationsInProject selectedApplicationIndexHolder |
14 selectedApplication hasApplicationSelectedHolder |
14 selectedApplication hasApplicationSelectedHolder |
15 listOfStartupClassesInProject selectedStartupClassIndexHolder |
15 listOfStartupClassesInProject selectedStartupClassIndexHolder |
16 selectedStartupClass hasStartupClassSelectedHolder |
16 selectedStartupClass hasStartupClassSelectedHolder |
17 selectedApplicationsComment buildDirectoryHolder makeProcess |
17 selectedApplicationsComment buildDirectoryHolder makeProcess |
18 listOfClassesInProject makeOutputWindow projectBuilder |
18 listOfClassesInProject makeOutputWindow projectBuilder |
19 newStartupClassName usedCompilerHolder' |
19 newStartupClassName usedCompilerHolder' |
20 classVariableNames:'' |
20 classVariableNames:'' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'System-Support-Projects' |
22 category:'System-Support-Projects' |
23 ! |
23 ! |
24 |
24 |
25 !ProjectBuilderAssistantApplication class methodsFor:'documentation'! |
25 !ProjectBuilderAssistantApplication class methodsFor:'documentation'! |
26 |
26 |
27 documentation |
27 documentation |
1208 ex messageText notNil ifTrue:[ |
1208 ex messageText notNil ifTrue:[ |
1209 makeOutputWindow endEntry. |
1209 makeOutputWindow endEntry. |
1210 makeOutputWindow cr. |
1210 makeOutputWindow cr. |
1211 makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue). |
1211 makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue). |
1212 makeOutputWindow endEntry. |
1212 makeOutputWindow endEntry. |
1213 ]. |
1213 ]. |
1214 ex proceed. |
1214 ex proceed. |
1215 ] do:[ |
1215 ] do:[ |
1216 projectBuilder := ProjectBuilder new. |
1216 projectBuilder := ProjectBuilder new. |
1217 projectBuilder package:(selectedProjectDefinition package). |
1217 projectBuilder package:(selectedProjectDefinition package). |
1218 projectBuilder usedCompiler:(usedCompilerHolder value). |
1218 projectBuilder usedCompiler:(usedCompilerHolder value). |
1307 ]. |
1307 ]. |
1308 ]. |
1308 ]. |
1309 buildDirectoryHolder value: buildDirectory. |
1309 buildDirectoryHolder value: buildDirectory. |
1310 ]. |
1310 ]. |
1311 ^ buildDirectoryHolder. |
1311 ^ buildDirectoryHolder. |
1312 ! |
|
1313 |
|
1314 fileBrowserInstance |
|
1315 |targetDirectory browser| |
|
1316 |
|
1317 targetDirectory := projectBuilder packageBuildDirectory. |
|
1318 |
|
1319 browser := FileBrowserV2 new. |
|
1320 browser onDirectory:targetDirectory. |
|
1321 browser filter:'*.exe'. |
|
1322 ^ browser. |
|
1323 ! |
1312 ! |
1324 |
1313 |
1325 hasApplicationSelectedHolder |
1314 hasApplicationSelectedHolder |
1326 <resource: #uiAspect> |
1315 <resource: #uiAspect> |
1327 |
1316 |
1615 ]. |
1604 ]. |
1616 ^ usedCompilerHolder. |
1605 ^ usedCompilerHolder. |
1617 ! ! |
1606 ! ! |
1618 |
1607 |
1619 !ProjectBuilderAssistantApplication methodsFor:'initialization & release'! |
1608 !ProjectBuilderAssistantApplication methodsFor:'initialization & release'! |
|
1609 |
|
1610 fileBrowserInstance |
|
1611 "setup the embedded fileBrowser (in the last page)" |
|
1612 |
|
1613 |targetDirectory browser| |
|
1614 |
|
1615 targetDirectory := projectBuilder packageBuildDirectory. |
|
1616 |
|
1617 browser := FileBrowserV2 new. |
|
1618 browser onDirectory:targetDirectory. |
|
1619 browser filter:'*.exe'. |
|
1620 ^ browser. |
|
1621 ! |
1620 |
1622 |
1621 postBuildMakeOutputWindow:aView |
1623 postBuildMakeOutputWindow:aView |
1622 makeOutputWindow := aView |
1624 makeOutputWindow := aView |
1623 ! |
1625 ! |
1624 |
1626 |