ProjectBuilder.st
changeset 3332 37a32de127ba
parent 3321 08f3a7af6975
child 3333 32dc40dc06cf
     1.1 --- a/ProjectBuilder.st	Wed Oct 05 17:35:22 2016 +0200
     1.2 +++ b/ProjectBuilder.st	Wed Oct 05 19:02:48 2016 +0200
     1.3 @@ -133,6 +133,9 @@
     1.4  !ProjectBuilder methodsFor:'accessing'!
     1.5  
     1.6  buildDirectory
     1.7 +    buildDirectory isNil ifTrue:[
     1.8 +        self determineBuildDirectory
     1.9 +    ].    
    1.10      ^ buildDirectory
    1.11  !
    1.12  
    1.13 @@ -288,12 +291,8 @@
    1.14      directory := package directory.
    1.15  
    1.16      buildDirectory isNil ifTrue:[
    1.17 -        buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
    1.18 -        buildDirectory isNil ifTrue:[
    1.19 -            buildDirectory := Filename tempDirectory construct:'stx_build'.
    1.20 -        ].
    1.21 +        self determineBuildDirectory.
    1.22      ].
    1.23 -    buildDirectory := buildDirectory asFilename.
    1.24  
    1.25      "/ self validateBuildDirectoryIsPresent.
    1.26  
    1.27 @@ -758,6 +757,16 @@
    1.28      "Modified: / 15-08-2011 / 14:58:46 / cg"
    1.29  !
    1.30  
    1.31 +determineBuildDirectory
    1.32 +    buildDirectory isNil ifTrue:[
    1.33 +        buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
    1.34 +        buildDirectory isNil ifTrue:[
    1.35 +            buildDirectory := Filename tempDirectory construct:'stx_build'.
    1.36 +        ].
    1.37 +    ].
    1.38 +    buildDirectory := buildDirectory asFilename.
    1.39 +!
    1.40 +
    1.41  generateBuildSupportFilesByFilingOutIn:packageTargetDir forDefinitionClass:projectDefinitionClass
    1.42      |fullPathName|
    1.43