#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Mon, 23 Apr 2018 09:44:52 +0200
changeset 22689 6537ee185453
parent 22688 3a3f9bfeec6e
child 22690 61e013b5ebb7
#DOCUMENTATION by cg class: AbstractOperatingSystem class comment/format in:15 methods
AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Mon Apr 23 09:01:08 2018 +0200
+++ b/AbstractOperatingSystem.st	Mon Apr 23 09:44:52 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1272,19 +1274,19 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:nil
-	outputTo:nil
-	errorTo:nil
-	auxFrom:nil
-	environment:nil
-	inDirectory:aDirectory
-	lineWise:false
-	onError:aBlock
+        executeCommand:aCommandString
+        inputFrom:nil
+        outputTo:nil
+        errorTo:nil
+        auxFrom:nil
+        environment:nil
+        inDirectory:aDirectory
+        lineWise:false
+        onError:aBlock
 
     "Modified: / 10.11.1998 / 20:54:37 / cg"
 !
@@ -1400,7 +1402,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, or the value of aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1458,7 +1460,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, or the value of aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1472,53 +1474,53 @@
      avoid blocking on pipes"
 
     ^ self
-	executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
-	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
-	inDirectory:dirOrNil lineWise:lineWise showWindow:false onError:aBlock
-
-    "
-	|outStream errStream|
-
-	outStream := '' writeStream.
-
-	OperatingSystem executeCommand:'ls -l'
-			inputFrom:'abc' readStream
-			outputTo:outStream
-			errorTo:nil
-			inDirectory:nil
-			lineWise:true
-			onError:[:exitStatus | ^ false].
-	outStream contents
-    "
-
-    "
-	|outStream errStream|
-
-	outStream := #[] writeStream.
-
-	OperatingSystem executeCommand:'cat'
-			inputFrom:(ByteArray new:5000000) readStream
-			outputTo:outStream
-			errorTo:nil
-			inDirectory:nil
-			lineWise:false
-			onError:[:exitStatus | ^ false].
-	outStream size
-    "
-
-    "
-	|outStream errStream|
-
-	outStream := '' writeStream.
-
-	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
-			inputFrom:'bla' readStream
-			outputTo:outStream
-			errorTo:nil
-			inDirectory:nil
-			lineWise:true
-			onError:[:exitStatus |  false].
-	outStream contents
+        executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
+        errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
+        inDirectory:dirOrNil lineWise:lineWise showWindow:false onError:aBlock
+
+    "
+        |outStream errStream|
+
+        outStream := '' writeStream.
+
+        OperatingSystem executeCommand:'ls -l'
+                        inputFrom:'abc' readStream
+                        outputTo:outStream
+                        errorTo:nil
+                        inDirectory:nil
+                        lineWise:true
+                        onError:[:exitStatus | ^ false].
+        outStream contents
+    "
+
+    "
+        |outStream errStream|
+
+        outStream := #[] writeStream.
+
+        OperatingSystem executeCommand:'cat'
+                        inputFrom:(ByteArray new:5000000) readStream
+                        outputTo:outStream
+                        errorTo:nil
+                        inDirectory:nil
+                        lineWise:false
+                        onError:[:exitStatus | ^ false].
+        outStream size
+    "
+
+    "
+        |outStream errStream|
+
+        outStream := '' writeStream.
+
+        OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
+                        inputFrom:'bla' readStream
+                        outputTo:outStream
+                        errorTo:nil
+                        inDirectory:nil
+                        lineWise:true
+                        onError:[:exitStatus |  false].
+        outStream contents
     "
 
     "Modified: / 11-02-2007 / 20:54:39 / cg"
@@ -1534,7 +1536,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, or the value of aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1548,66 +1550,66 @@
      avoid blocking on pipes.
 
      Special for windows:
-	you can control (have to - sigh) if a window should be shown for the command or not.
-	This is the OS's H_SHOWWINDOW argument.
-	If you pass nil as showWindow-argument, the OS's default is used for the particular
-	command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
-	executables will not.
-	However, some command-line executables show a window, even if they should not.
-	(and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
-	 a shell command opens a cmd-window, whereas in windows7 it did not)
-	In this case, pass an explicit false argument to suppress it.
-	This argument is ignored on Unix systems.
-	See examples below."
+        you can control (have to - sigh) if a window should be shown for the command or not.
+        This is the OS's H_SHOWWINDOW argument.
+        If you pass nil as showWindow-argument, the OS's default is used for the particular
+        command, which is correct most of the time: i.e. a notepad will open its window, other (non-UI)
+        executables will not.
+        However, some command-line executables show a window, even if they should not.
+        (and also, there seems to be an inconsistency between windows7 and newer windows: in newer,
+         a shell command opens a cmd-window, whereas in windows7 it did not)
+        In this case, pass an explicit false argument to suppress it.
+        This argument is ignored on Unix systems.
+        See examples below."
 
     ^ self
-	executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
-	errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
-	inDirectory:dirOrNil lineWise:lineWise newPgrp:true showWindow:showWindowBooleanOrNil onError:aBlock
-
-    "
-	|outStream errStream|
-
-	outStream := '' writeStream.
-
-	OperatingSystem executeCommand:'ls -l'
-			inputFrom:'abc' readStream
-			outputTo:outStream
-			errorTo:nil
-			inDirectory:nil
-			lineWise:true
-			onError:[:exitStatus | ^ false].
-	outStream contents
-    "
-
-    "
-	|outStream errStream|
-
-	outStream := #[] writeStream.
-
-	OperatingSystem executeCommand:'cat'
-			inputFrom:(ByteArray new:5000000) readStream
-			outputTo:outStream
-			errorTo:nil
-			inDirectory:nil
-			lineWise:false
-			onError:[:exitStatus | ^ false].
-	outStream size
-    "
-
-    "
-	|outStream errStream|
-
-	outStream := '' writeStream.
-
-	OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
-			inputFrom:'bla' readStream
-			outputTo:outStream
-			errorTo:nil
-			inDirectory:nil
-			lineWise:true
-			onError:[:exitStatus |  false].
-	outStream contents
+        executeCommand:aCommandStringOrArray inputFrom:anInStream outputTo:anOutStream
+        errorTo:anErrStream auxFrom:anAuxStream environment:environmentDictionary
+        inDirectory:dirOrNil lineWise:lineWise newPgrp:true showWindow:showWindowBooleanOrNil onError:aBlock
+
+    "
+        |outStream errStream|
+
+        outStream := '' writeStream.
+
+        OperatingSystem executeCommand:'ls -l'
+                        inputFrom:'abc' readStream
+                        outputTo:outStream
+                        errorTo:nil
+                        inDirectory:nil
+                        lineWise:true
+                        onError:[:exitStatus | ^ false].
+        outStream contents
+    "
+
+    "
+        |outStream errStream|
+
+        outStream := #[] writeStream.
+
+        OperatingSystem executeCommand:'cat'
+                        inputFrom:(ByteArray new:5000000) readStream
+                        outputTo:outStream
+                        errorTo:nil
+                        inDirectory:nil
+                        lineWise:false
+                        onError:[:exitStatus | ^ false].
+        outStream size
+    "
+
+    "
+        |outStream errStream|
+
+        outStream := '' writeStream.
+
+        OperatingSystem executeCommand:'gpg -s --batch --no-tty --passphrase-fd 0 /tmp/passwd'
+                        inputFrom:'bla' readStream
+                        outputTo:outStream
+                        errorTo:nil
+                        inDirectory:nil
+                        lineWise:true
+                        onError:[:exitStatus |  false].
+        outStream contents
     "
 
     "Modified: / 08-11-2016 / 21:33:00 / cg"
@@ -1647,7 +1649,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1678,62 +1680,62 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:env
-	inDirectory:nil
-	lineWise:false
-	onError:aBlock
-
-    "
-	OperatingSystem
-	    executeCommand:'dir'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-
-	OperatingSystem
-	    executeCommand:'foo'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls /fooBar'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:env
+        inDirectory:nil
+        lineWise:false
+        onError:aBlock
+
+    "
+        OperatingSystem
+            executeCommand:'dir'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+
+        OperatingSystem
+            executeCommand:'foo'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls /fooBar'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
     "
 
     "Modified: / 10.11.1998 / 20:51:39 / cg"
@@ -1746,63 +1748,63 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:env
-	inDirectory:nil
-	lineWise:false
-	showWindow:showWindow
-	onError:aBlock
-
-    "
-	OperatingSystem
-	    executeCommand:'dir'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-
-	OperatingSystem
-	    executeCommand:'foo'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls /fooBar'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:env
+        inDirectory:nil
+        lineWise:false
+        showWindow:showWindow
+        onError:aBlock
+
+    "
+        OperatingSystem
+            executeCommand:'dir'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+
+        OperatingSystem
+            executeCommand:'foo'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls /fooBar'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
     "
 
     "Modified: / 10.11.1998 / 20:51:39 / cg"
@@ -1843,7 +1845,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1853,15 +1855,15 @@
      error resp. - i.e. usually, i/o will be from/to the terminal"
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:nil
-	inDirectory:dirOrNil
-	lineWise:lineWise
-	onError:aBlock
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:nil
+        inDirectory:dirOrNil
+        lineWise:lineWise
+        onError:aBlock
 !
 
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil lineWise:lineWise showWindow:showWindow onError:aBlock
@@ -1871,7 +1873,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1881,16 +1883,16 @@
      error resp. - i.e. usually, i/o will be from/to the terminal"
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:nil
-	inDirectory:dirOrNil
-	lineWise:lineWise
-	showWindow:showWindow
-	onError:aBlock
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:nil
+        inDirectory:dirOrNil
+        lineWise:lineWise
+        showWindow:showWindow
+        onError:aBlock
 !
 
 executeCommand:aCommandString inputFrom:anInStream outputTo:anOutStream errorTo:anErrStream inDirectory:dirOrNil onError:aBlock
@@ -1900,7 +1902,7 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument.
      The given in, out and err streams may be arbitrary (Smalltalk-) streams;
      if any is not an external stream (which is required by the command),
@@ -1910,51 +1912,51 @@
      error resp. - i.e. i/o will be from/to the xterminal"
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:nil
-	inDirectory:dirOrNil
-	lineWise:false
-	onError:aBlock
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:nil
+        inDirectory:dirOrNil
+        lineWise:false
+        onError:aBlock
 
     "
      OperatingSystem
-	 executeCommand:'dir'
-	 inputFrom:nil
-	 outputTo:nil
-	 errorTo:nil
-	 inDirectory:'c:'
-	 onError:[:status | Transcript flash]
+         executeCommand:'dir'
+         inputFrom:nil
+         outputTo:nil
+         errorTo:nil
+         inDirectory:'c:'
+         onError:[:status | Transcript flash]
 
      OperatingSystem
-	 executeCommand:'foo'
-	 inputFrom:nil
-	 outputTo:nil
-	 errorTo:nil
-	 inDirectory:'/etc'
-	 onError:[:status | Transcript flash]
+         executeCommand:'foo'
+         inputFrom:nil
+         outputTo:nil
+         errorTo:nil
+         inDirectory:'/etc'
+         onError:[:status | Transcript flash]
 
      |s|
      s := '' writeStream.
      OperatingSystem
-	 executeCommand:'ls -l'
-	 inputFrom:nil
-	 outputTo:s
-	 errorTo:nil
-	 onError:[:status | Transcript flash].
+         executeCommand:'ls -l'
+         inputFrom:nil
+         outputTo:s
+         errorTo:nil
+         onError:[:status | Transcript flash].
      Transcript showCR:s contents.
 
      |s|
      s := '' writeStream.
      OperatingSystem
-	 executeCommand:'sh foo'
-	 inputFrom:nil
-	 outputTo:s
-	 errorTo:s
-	 onError:[:status | Transcript flash].
+         executeCommand:'sh foo'
+         inputFrom:nil
+         outputTo:s
+         errorTo:s
+         onError:[:status | Transcript flash].
      Transcript showCR:s contents.
     "
 
@@ -1971,63 +1973,63 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:nil
-	inDirectory:dir
-	lineWise:false
-	showWindow:showWindow
-	onError:aBlock
-
-    "
-	OperatingSystem
-	    executeCommand:'dir'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-
-	OperatingSystem
-	    executeCommand:'foo'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls /fooBar'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:nil
+        inDirectory:dir
+        lineWise:false
+        showWindow:showWindow
+        onError:aBlock
+
+    "
+        OperatingSystem
+            executeCommand:'dir'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+
+        OperatingSystem
+            executeCommand:'foo'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls /fooBar'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
     "
 
     "Modified: / 10.11.1998 / 20:51:39 / cg"
@@ -2040,62 +2042,62 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:nil
-	inDirectory:nil
-	lineWise:false
-	onError:aBlock
-
-    "
-	OperatingSystem
-	    executeCommand:'dir'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-
-	OperatingSystem
-	    executeCommand:'foo'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls /fooBar'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:nil
+        inDirectory:nil
+        lineWise:false
+        onError:aBlock
+
+    "
+        OperatingSystem
+            executeCommand:'dir'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+
+        OperatingSystem
+            executeCommand:'foo'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls /fooBar'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
     "
 
     "Modified: / 10.11.1998 / 20:51:39 / cg"
@@ -2108,63 +2110,63 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:anInStream
-	outputTo:anOutStream
-	errorTo:anErrStream
-	auxFrom:nil
-	environment:nil
-	inDirectory:nil
-	lineWise:false
-	showWindow:showWindow
-	onError:aBlock
-
-    "
-	OperatingSystem
-	    executeCommand:'dir'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-
-	OperatingSystem
-	    executeCommand:'foo'
-	    inputFrom:nil
-	    outputTo:nil
-	    errorTo:nil
-	    onError:[:status | Transcript flash]
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
-    "
-    "
-	|outStr errStr|
-
-	outStr := '' writeStream.
-	errStr := '' writeStream.
-	OperatingSystem
-	    executeCommand:'ls /fooBar'
-	    inputFrom:nil
-	    outputTo:outStr
-	    errorTo:errStr
-	    onError:[:status | Transcript flash].
-	Transcript show:'out:'; showCR:outStr contents.
-	Transcript show:'err:'; showCR:errStr contents.
+        executeCommand:aCommandString
+        inputFrom:anInStream
+        outputTo:anOutStream
+        errorTo:anErrStream
+        auxFrom:nil
+        environment:nil
+        inDirectory:nil
+        lineWise:false
+        showWindow:showWindow
+        onError:aBlock
+
+    "
+        OperatingSystem
+            executeCommand:'dir'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+
+        OperatingSystem
+            executeCommand:'foo'
+            inputFrom:nil
+            outputTo:nil
+            errorTo:nil
+            onError:[:status | Transcript flash]
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
+    "
+    "
+        |outStr errStr|
+
+        outStr := '' writeStream.
+        errStr := '' writeStream.
+        OperatingSystem
+            executeCommand:'ls /fooBar'
+            inputFrom:nil
+            outputTo:outStr
+            errorTo:errStr
+            onError:[:status | Transcript flash].
+        Transcript show:'out:'; showCR:outStr contents.
+        Transcript show:'err:'; showCR:errStr contents.
     "
 
     "Modified: / 10.11.1998 / 20:51:39 / cg"
@@ -2177,19 +2179,19 @@
      If aCommandString is an Array, the first element is the command to be executed,
      and the other elements are the arguments to the command. No shell is invoked in this case.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:nil
-	outputTo:nil
-	errorTo:nil
-	auxFrom:nil
-	environment:nil
-	inDirectory:nil
-	lineWise:false
-	onError:aBlock
+        executeCommand:aCommandString
+        inputFrom:nil
+        outputTo:nil
+        errorTo:nil
+        auxFrom:nil
+        environment:nil
+        inDirectory:nil
+        lineWise:false
+        onError:aBlock
 
     "unix:
 
@@ -4245,7 +4247,7 @@
      The commandString is passed to a shell for execution - see the description of
      'sh -c' in your UNIX manual.
      Return true if successful, the value from aBlock if not.
-     If not successfull, aBlock is called with an OsProcessStatus
+     If not successful, aBlock is called with an OsProcessStatus
      (containing the exit status) as argument."
 
     <resource:#obsolete>
@@ -4253,15 +4255,15 @@
     self obsoleteMethodWarning:'use executeCommand:inDirectory:onError:'.
 
     ^ self
-	executeCommand:aCommandString
-	inputFrom:nil
-	outputTo:nil
-	errorTo:nil
-	auxFrom:nil
-	environment:nil
-	inDirectory:aDirectory
-	lineWise:false
-	onError:aBlock
+        executeCommand:aCommandString
+        inputFrom:nil
+        outputTo:nil
+        errorTo:nil
+        auxFrom:nil
+        environment:nil
+        inDirectory:aDirectory
+        lineWise:false
+        onError:aBlock
 
     "Modified: / 10.11.1998 / 20:54:37 / cg"
 ! !