--- 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