#!stx --script
"/
"/ notice that you can open more tools from the workspace
"/ (i.e. eval: NewLauncher open)
"/
Workspace open.
'done' printCR.

"
[
  Delay waitForSeconds:10.
  Process allInstances do:[:p |
    p isDead ifFalse:[
      p name print. ' ' print. p isSystemProcess printCR.
p suspendedContext notNil ifTrue:[
  p suspendedContext fullPrintAll.
  '' printCR.
].
    ].
  ].
  Processor anyUserProcessAtAll printCR.
  Smalltalk exit
] fork.
"