--- a/ProjectBuilder.st Thu Oct 22 23:03:18 2009 +0200
+++ b/ProjectBuilder.st Thu Oct 22 23:13:26 2009 +0200
@@ -4,7 +4,8 @@
Object subclass:#ProjectBuilder
instanceVariableNames:'package projectDefinitionClass sourceCodeManager buildDirectory
- myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream'
+ myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream
+ makeExeOnly'
classVariableNames:'PreviousBuildDirectory'
poolDictionaries:''
category:'System-Support-Projects'
@@ -53,6 +54,10 @@
buildDirectory := something.
!
+makeExeOnly:aBoolean
+ makeExeOnly := aBoolean.
+!
+
package:aPackageIDOrSymbol
package := aPackageIDOrSymbol asPackageId.
!
@@ -319,6 +324,9 @@
'libbc/cs32i.lib'
'librun/genDate.exe'
'librun/main.c'
+ 'projects/smalltalk/stx_16x16.ico'
+ 'projects/smalltalk/stx_32x32.ico'
+ 'projects/smalltalk/stx_splash.bmp'
).
] ifFalse:[
files := #(
@@ -559,13 +567,15 @@
inDirectory:(buildDirectory / module / directory)
onError:[:status| self error:'make failed'].
- OperatingSystem
- executeCommand:(ParserFlags makeCommand,' setup')
- inputFrom:nil
- outputTo:stdOut
- errorTo:stdErr
- inDirectory:(buildDirectory / module / directory)
- onError:[:status| self error:'make failed'].
+ (makeExeOnly ? false) ifFalse:[
+ OperatingSystem
+ executeCommand:(ParserFlags makeCommand,' setup')
+ inputFrom:nil
+ outputTo:stdOut
+ errorTo:stdErr
+ inDirectory:(buildDirectory / module / directory)
+ onError:[:status| self error:'make failed'].
+ ]
]
!