--- 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'].
+        ]
     ]
 !