Faculty of Information Technology
Software Engineering Group

Ticket #298: issue298_riscv_crash.st

File issue298_riscv_crash.st, 295 bytes (added by Jan Vrany, 2 years ago)

test case

Line 
1| a |
2
3Screen current isNil ifTrue:[
4    Smalltalk openDisplay.
5].
6
7Transcript isView ifFalse:[
8    NewLauncher open.
9].
10
11Tools::ViewTreeInspectorApplication autoload.
12a := Tools::ViewTreeInspectorApplication new.
13a open.
14a enqueueMessage:#showWindow: for:a arguments:(Array with: Transcript).
15