# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1475686968 -7200
# Node ID 37a32de127ba8ff5b88fc54479d752e0f6fb8d40
# Parent  7b33bd507e1cae09920159f6ec07ef6e6220c9b5
#UI_ENHANCEMENT by cg
class: Tools::ProjectBuilder
added: #determineBuildDirectory
changed:
	#buildDirectory
	#buildWithOutputTo:errorTo:

diff -r 7b33bd507e1c -r 37a32de127ba ProjectBuilder.st
--- a/ProjectBuilder.st	Wed Oct 05 17:35:22 2016 +0200
+++ b/ProjectBuilder.st	Wed Oct 05 19:02:48 2016 +0200
@@ -133,6 +133,9 @@
 !ProjectBuilder methodsFor:'accessing'!
 
 buildDirectory
+    buildDirectory isNil ifTrue:[
+        self determineBuildDirectory
+    ].    
     ^ buildDirectory
 !
 
@@ -288,12 +291,8 @@
     directory := package directory.
 
     buildDirectory isNil ifTrue:[
-        buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
-        buildDirectory isNil ifTrue:[
-            buildDirectory := Filename tempDirectory construct:'stx_build'.
-        ].
+        self determineBuildDirectory.
     ].
-    buildDirectory := buildDirectory asFilename.
 
     "/ self validateBuildDirectoryIsPresent.
 
@@ -758,6 +757,16 @@
     "Modified: / 15-08-2011 / 14:58:46 / cg"
 !
 
+determineBuildDirectory
+    buildDirectory isNil ifTrue:[
+        buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
+        buildDirectory isNil ifTrue:[
+            buildDirectory := Filename tempDirectory construct:'stx_build'.
+        ].
+    ].
+    buildDirectory := buildDirectory asFilename.
+!
+
 generateBuildSupportFilesByFilingOutIn:packageTargetDir forDefinitionClass:projectDefinitionClass
     |fullPathName|