| author | Claus Gittinger <cg@exept.de> |
| Wed, 12 Oct 2016 01:56:49 +0200 | |
| changeset 1468 | 9d2291557943 |
| parent 1393 | 4d8585c39345 |
| child 1474 | 5da7d89d0cae |
| permissions | -rwxr-xr-x |
| 1348 | 1 |
#!stx --script |
2 |
"/ |
|
3 |
"/ notice that you can open more tools from the workspace |
|
4 |
"/ (i.e. eval: NewLauncher open) |
|
5 |
"/ |
|
| 1393 | 6 |
Workspace open. |
7 |
'done' printCR. |
|
8 |
||
9 |
" |
|
10 |
[ |
|
11 |
Delay waitForSeconds:10. |
|
12 |
Process allInstances do:[:p | |
|
13 |
p isDead ifFalse:[ |
|
14 |
p name print. ' ' print. p isSystemProcess printCR. |
|
15 |
p suspendedContext notNil ifTrue:[ |
|
16 |
p suspendedContext fullPrintAll. |
|
17 |
'' printCR. |
|
18 |
]. |
|
19 |
]. |
|
20 |
]. |
|
21 |
Processor anyUserProcessAtAll printCR. |
|
22 |
Smalltalk exit |
|
23 |
] fork. |
|
24 |
" |