# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256311403 -7200
# Node ID 66343568f2b2d3b24dbc6baaa4d915e4003e45fb
# Parent  5a19c21dada0700742990e0d61729ba2d535e453
changed: #fileBrowserInstance
category of: #fileBrowserInstance

diff -r 5a19c21dada0 -r 66343568f2b2 Tools__ProjectBuilderAssistantApplication.st
--- 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
 !