3 "{ Package: 'stx:libbasic' }"

     1 "{ Package: 'stx:libbasic' }"

     4 

     2 

     5 "{ NameSpace: Smalltalk }"

     3 "{ NameSpace: Smalltalk }"

     6 

     4 

     7 Object subclass:#OSProcess

     5 Object subclass:#OSProcess

   693     ].

   691     ].

   694 

   692 

   695     "start the command"

   693     "start the command"

   696     finishSema := EventSemaphore new.

   694     finishSema := EventSemaphore new.

   697 

   695 

   698     Processor 

   701     Processor 

   699         monitor:[

   702         monitor:[

   700             pid := OperatingSystem

   703             pid := OperatingSystem

   701                         startProcess:(self startCommand)

   704                         startProcess:(self startCommand)

   702                         inputFrom:externalInStream

   705                         inputFrom:externalInStream