--- 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
+ <resource: #skipInDebuggersWalkBack>
"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
+ <resource: #skipInDebuggersWalkBack>
+
|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'!