diff -r 6a720c32775e -r 98ae4fba66a8 OSProcess.st --- a/OSProcess.st Tue May 29 20:06:57 2018 +0200 +++ b/OSProcess.st Wed May 30 15:15:24 2018 +0200 @@ -5,19 +5,19 @@ "{ NameSpace: Smalltalk }" Object subclass:#OSProcess - instanceVariableNames:'pid command environment directory inStream outStream errorStream - auxStream showWindow lineWise newPgrp exitStatus finishSema - shufflerProcesses streamsToClose terminateActionBlock' - classVariableNames:'' - poolDictionaries:'' - category:'System-Support' + instanceVariableNames:'pid command environment directory inStream outStream errorStream + auxStream showWindow lineWise newPgrp exitStatus finishSema + shufflerProcesses streamsToClose terminateActionBlock' + classVariableNames:'' + poolDictionaries:'' + category:'System-Support' ! OSProcess subclass:#RemoteOSProcess - instanceVariableNames:'host' - classVariableNames:'MethodPerHost' - poolDictionaries:'' - privateIn:OSProcess + instanceVariableNames:'host' + classVariableNames:'MethodPerHost' + poolDictionaries:'' + privateIn:OSProcess ! !OSProcess class methodsFor:'documentation'! @@ -832,6 +832,7 @@ !OSProcess methodsFor:'waiting'! waitUntilFinished + "wait with a veryy long timeout, in order that ProcessorScheduler>>#checkForEndOfDispatch recogizes @@ -842,9 +843,12 @@ "Modified: / 01-08-2017 / 14:41:10 / stefan" "Modified (comment): / 01-08-2017 / 17:15:55 / stefan" + "Modified: / 30-05-2018 / 13:57:42 / Claus Gittinger" ! waitUntilFinishedWithTimeout:timeout + + |processList| (finishSema waitWithTimeout:timeout) isNil ifTrue:[ @@ -860,6 +864,8 @@ ]. shufflerProcesses := nil. ]. + + "Modified: / 30-05-2018 / 13:57:39 / Claus Gittinger" ! ! !OSProcess::RemoteOSProcess class methodsFor:'documentation'!