equal
deleted
inserted
replaced
1 "{ Package: 'stx:libbasic' }" |
1 "{ Package: 'stx:libbasic' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 Object subclass:#OSProcess |
5 Object subclass:#OSProcess |
6 instanceVariableNames:'pid command environment directory inStream outStream errorStream |
6 instanceVariableNames:'pid command environment directory inStream outStream errorStream |
7 auxStream showWindow lineWise newPgrp exitStatus finishSema |
7 auxStream showWindow lineWise newPgrp exitStatus finishSema |
8 shufflerProcesses streamsToClose terminateActionBlock' |
8 shufflerProcesses streamsToClose terminateActionBlock' |
9 classVariableNames:'' |
9 classVariableNames:'' |
10 poolDictionaries:'' |
10 poolDictionaries:'' |
11 category:'System-Support' |
11 category:'System-Support' |
12 ! |
12 ! |
13 |
13 |
14 OSProcess subclass:#RemoteOSProcess |
14 OSProcess subclass:#RemoteOSProcess |
15 instanceVariableNames:'host' |
15 instanceVariableNames:'host' |
16 classVariableNames:'MethodPerHost' |
16 classVariableNames:'MethodPerHost' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 privateIn:OSProcess |
18 privateIn:OSProcess |
19 ! |
19 ! |
20 |
20 |
21 !OSProcess class methodsFor:'documentation'! |
21 !OSProcess class methodsFor:'documentation'! |
22 |
22 |
23 documentation |
23 documentation |
693 "start the command" |
693 "start the command" |
694 finishSema := EventSemaphore new. |
694 finishSema := EventSemaphore new. |
695 |
695 |
696 "/ UserPreferences current logExecutedOSCommands:true |
696 "/ UserPreferences current logExecutedOSCommands:true |
697 UserPreferences current logExecutedOSCommands ifTrue:[ |
697 UserPreferences current logExecutedOSCommands ifTrue:[ |
698 Transcript showCR:('OS command: ',self startCommand). |
698 Transcript showCR:('OS command: ',self startCommand asString). |
699 ]. |
699 ]. |
700 |
700 |
701 Processor |
701 Processor |
702 monitor:[ |
702 monitor:[ |
703 pid := OperatingSystem |
703 pid := OperatingSystem |