OSProcess.st
changeset 23035 98ae4fba66a8
parent 23006 0427d51adb60
child 23126 afbeb2bb7afc
--- 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'!