Ticket #298: issue298_riscv_crash.st
File issue298_riscv_crash.st, 295 bytes (added by , 4 years ago) |
---|
Line | |
---|---|
1 | | a | |
2 | |
3 | Screen current isNil ifTrue:[ |
4 | Smalltalk openDisplay. |
5 | ]. |
6 | |
7 | Transcript isView ifFalse:[ |
8 | NewLauncher open. |
9 | ]. |
10 | |
11 | Tools::ViewTreeInspectorApplication autoload. |
12 | a := Tools::ViewTreeInspectorApplication new. |
13 | a open. |
14 | a enqueueMessage:#showWindow: for:a arguments:(Array with: Transcript). |
15 |