--- a/Tools__ProjectBuilderAssistantApplication.st Fri Oct 23 16:44:38 2009 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Fri Oct 23 17:23:23 2009 +0200
@@ -3,23 +3,23 @@
"{ NameSpace: Tools }"
AssistantApplication subclass:#ProjectBuilderAssistantApplication
- instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder
- selectedProjectIndexHolder selectedProjectDefinition
- listOfMatchingProjects listOfMatchingPackageIds
- selectedProjectsComment hasProjectSelectedHolder newProjectsName
- hideSTXProjects hideOtherApplicationClasses
- hideOtherStartupClasses startMakeButtonEnabled
- stopMakeButtonVisible makeOutputHolder newApplicationsName
- listOfApplicationsInProject selectedApplicationIndexHolder
- selectedApplication hasApplicationSelectedHolder
- listOfStartupClassesInProject selectedStartupClassIndexHolder
- selectedStartupClass hasStartupClassSelectedHolder
- selectedApplicationsComment buildDirectoryHolder makeProcess
- listOfClassesInProject makeOutputWindow projectBuilder
- newStartupClassName usedCompilerHolder'
- classVariableNames:''
- poolDictionaries:''
- category:'System-Support-Projects'
+ instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder
+ selectedProjectIndexHolder selectedProjectDefinition
+ listOfMatchingProjects listOfMatchingPackageIds
+ selectedProjectsComment hasProjectSelectedHolder newProjectsName
+ hideSTXProjects hideOtherApplicationClasses
+ hideOtherStartupClasses startMakeButtonEnabled
+ stopMakeButtonVisible makeOutputHolder newApplicationsName
+ listOfApplicationsInProject selectedApplicationIndexHolder
+ selectedApplication hasApplicationSelectedHolder
+ listOfStartupClassesInProject selectedStartupClassIndexHolder
+ selectedStartupClass hasStartupClassSelectedHolder
+ selectedApplicationsComment buildDirectoryHolder makeProcess
+ listOfClassesInProject makeOutputWindow projectBuilder
+ newStartupClassName usedCompilerHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Support-Projects'
!
!ProjectBuilderAssistantApplication class methodsFor:'documentation'!
@@ -1210,7 +1210,7 @@
makeOutputWindow cr.
makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue).
makeOutputWindow endEntry.
- ].
+ ].
ex proceed.
] do:[
projectBuilder := ProjectBuilder new.
@@ -1311,17 +1311,6 @@
^ buildDirectoryHolder.
!
-fileBrowserInstance
- |targetDirectory browser|
-
- targetDirectory := projectBuilder packageBuildDirectory.
-
- browser := FileBrowserV2 new.
- browser onDirectory:targetDirectory.
- browser filter:'*.exe'.
- ^ browser.
-!
-
hasApplicationSelectedHolder
<resource: #uiAspect>
@@ -1618,6 +1607,19 @@
!ProjectBuilderAssistantApplication methodsFor:'initialization & release'!
+fileBrowserInstance
+ "setup the embedded fileBrowser (in the last page)"
+
+ |targetDirectory browser|
+
+ targetDirectory := projectBuilder packageBuildDirectory.
+
+ browser := FileBrowserV2 new.
+ browser onDirectory:targetDirectory.
+ browser filter:'*.exe'.
+ ^ browser.
+!
+
postBuildMakeOutputWindow:aView
makeOutputWindow := aView
!