*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 20 Oct 2009 23:53:26 +0200
changeset 2647aedc794b630a
parent 2646 fd847e43cedd
child 2648 23b690dfd69a
*** empty log message ***
ProjectBuilder.st
     1.1 --- a/ProjectBuilder.st	Tue Oct 20 23:52:57 2009 +0200
     1.2 +++ b/ProjectBuilder.st	Tue Oct 20 23:53:26 2009 +0200
     1.3 @@ -4,7 +4,7 @@
     1.4  
     1.5  Object subclass:#ProjectBuilder
     1.6  	instanceVariableNames:'package projectDefinitionClass sourceCodeManager buildDirectory
     1.7 -		myWorkingDirectory mySTXTopDirectory myTopDirectory'
     1.8 +		myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream'
     1.9  	classVariableNames:'PreviousBuildDirectory'
    1.10  	poolDictionaries:''
    1.11  	category:'System-Support-Projects'
    1.12 @@ -73,10 +73,22 @@
    1.13      "/ intermediate - this will move into a commonly used utility class
    1.14      "/ (where all the project code support will be collected).
    1.15  
    1.16 -    |makeOutput stdOut stdErr lock|
    1.17 +    |makeOutput|
    1.18 +
    1.19 +    makeOutput := TextStream on:(Text new:10000).
    1.20 +    self buildWithColorizedOutputTo:makeOutput.
    1.21 +
    1.22 +    TextView openWith:makeOutput contents.
    1.23 +!
    1.24 +
    1.25 +buildWithColorizedOutputTo:makeOutput
    1.26 +    "/ intermediate - this will move into a commonly used utility class
    1.27 +    "/ (where all the project code support will be collected).
    1.28 +
    1.29 +    |stdOut stdErr lock|
    1.30  
    1.31      lock := Semaphore forMutualExclusion.
    1.32 -    makeOutput := TextStream on:(Text new:10000).
    1.33 +
    1.34      stdErr := ActorStream new
    1.35                      nextPutBlock:[:char |
    1.36                          lock critical:[
    1.37 @@ -105,8 +117,6 @@
    1.38                      ].
    1.39  
    1.40      self buildWithOutputTo:stdOut errorTo:stdErr.
    1.41 -
    1.42 -    TextView openWith:makeOutput contents.
    1.43  !
    1.44  
    1.45  buildWithOutputTo:stdOut errorTo:stdErr