OSProcess.st
changeset 24429 d9f5afe53e2b
parent 24290 36a25191f3e8
child 24471 289363dea03a
--- a/OSProcess.st	Wed Jul 17 10:31:42 2019 +0200
+++ b/OSProcess.st	Wed Jul 17 19:53:46 2019 +0200
@@ -773,7 +773,9 @@
                         |data|
 
                         data := shuffledStream nextLine.
+                        "/ Transcript showCR:'got: ',data printString.
                         data notNil ifTrue:[
+                            "/ Transcript showCR:'for: ',aStream printString.
                             aStream nextPutLine:data
                         ].
                     ].
@@ -800,8 +802,8 @@
     ^ externalStream
 
     "Modified: / 31-01-2017 / 16:57:25 / stefan"
-    "Modified (comment): / 29-10-2018 / 16:00:55 / Claus Gittinger"
     "Modified: / 01-11-2018 / 14:40:24 / Stefan Vogel"
+    "Modified: / 17-07-2019 / 19:53:26 / Claus Gittinger"
 !
 
 startCommand
@@ -957,6 +959,7 @@
         action:[:status |
             status stillAlive ifFalse:[
                 exitStatus := status.
+                "/ cg: why this? Isn't the process already dead?
                 self terminate.
 
                 finishSema signal.
@@ -1020,6 +1023,7 @@
 
     "Modified: / 01-11-2018 / 14:41:12 / Stefan Vogel"
     "Modified: / 13-03-2019 / 21:13:05 / Claus Gittinger"
+    "Modified (comment): / 17-07-2019 / 19:33:43 / Claus Gittinger"
 ! !
 
 !OSProcess methodsFor:'terminating'!