*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 22 Oct 2009 23:13:26 +0200
changeset 2673100b4dd5c3c2
parent 2672 a1cda5d8943d
child 2674 3f61bdc7e0dc
*** empty log message ***
ProjectBuilder.st
     1.1 --- a/ProjectBuilder.st	Thu Oct 22 23:03:18 2009 +0200
     1.2 +++ b/ProjectBuilder.st	Thu Oct 22 23:13:26 2009 +0200
     1.3 @@ -4,7 +4,8 @@
     1.4  
     1.5  Object subclass:#ProjectBuilder
     1.6  	instanceVariableNames:'package projectDefinitionClass sourceCodeManager buildDirectory
     1.7 -		myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream'
     1.8 +		myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream
     1.9 +		makeExeOnly'
    1.10  	classVariableNames:'PreviousBuildDirectory'
    1.11  	poolDictionaries:''
    1.12  	category:'System-Support-Projects'
    1.13 @@ -53,6 +54,10 @@
    1.14      buildDirectory := something.
    1.15  !
    1.16  
    1.17 +makeExeOnly:aBoolean
    1.18 +    makeExeOnly := aBoolean.
    1.19 +!
    1.20 +
    1.21  package:aPackageIDOrSymbol
    1.22      package := aPackageIDOrSymbol asPackageId.
    1.23  !
    1.24 @@ -319,6 +324,9 @@
    1.25                      'libbc/cs32i.lib'
    1.26                      'librun/genDate.exe'
    1.27                      'librun/main.c'
    1.28 +                    'projects/smalltalk/stx_16x16.ico'
    1.29 +                    'projects/smalltalk/stx_32x32.ico'
    1.30 +                    'projects/smalltalk/stx_splash.bmp'
    1.31                   ).
    1.32      ] ifFalse:[
    1.33          files := #(
    1.34 @@ -559,13 +567,15 @@
    1.35              inDirectory:(buildDirectory / module / directory)
    1.36              onError:[:status| self error:'make failed'].
    1.37  
    1.38 -        OperatingSystem
    1.39 -            executeCommand:(ParserFlags makeCommand,' setup')
    1.40 -            inputFrom:nil
    1.41 -            outputTo:stdOut
    1.42 -            errorTo:stdErr
    1.43 -            inDirectory:(buildDirectory / module / directory)
    1.44 -            onError:[:status| self error:'make failed'].
    1.45 +        (makeExeOnly ? false) ifFalse:[
    1.46 +            OperatingSystem
    1.47 +                executeCommand:(ParserFlags makeCommand,' setup')
    1.48 +                inputFrom:nil
    1.49 +                outputTo:stdOut
    1.50 +                errorTo:stdErr
    1.51 +                inDirectory:(buildDirectory / module / directory)
    1.52 +                onError:[:status| self error:'make failed'].
    1.53 +        ]
    1.54      ]
    1.55  !
    1.56