--- a/ProjectBuilder.st	Tue Oct 20 23:52:57 2009 +0200
+++ b/ProjectBuilder.st	Tue Oct 20 23:53:26 2009 +0200
@@ -4,7 +4,7 @@
 
 Object subclass:#ProjectBuilder
 	instanceVariableNames:'package projectDefinitionClass sourceCodeManager buildDirectory
-		myWorkingDirectory mySTXTopDirectory myTopDirectory'
+		myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream'
 	classVariableNames:'PreviousBuildDirectory'
 	poolDictionaries:''
 	category:'System-Support-Projects'
@@ -73,10 +73,22 @@
     "/ intermediate - this will move into a commonly used utility class
     "/ (where all the project code support will be collected).
 
-    |makeOutput stdOut stdErr lock|
+    |makeOutput|
+
+    makeOutput := TextStream on:(Text new:10000).
+    self buildWithColorizedOutputTo:makeOutput.
+
+    TextView openWith:makeOutput contents.
+!
+
+buildWithColorizedOutputTo:makeOutput
+    "/ intermediate - this will move into a commonly used utility class
+    "/ (where all the project code support will be collected).
+
+    |stdOut stdErr lock|
 
     lock := Semaphore forMutualExclusion.
-    makeOutput := TextStream on:(Text new:10000).
+
     stdErr := ActorStream new
                     nextPutBlock:[:char |
                         lock critical:[
@@ -105,8 +117,6 @@
                     ].
 
     self buildWithOutputTo:stdOut errorTo:stdErr.
-
-    TextView openWith:makeOutput contents.
 !
 
 buildWithOutputTo:stdOut errorTo:stdErr