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