: main ( -- ) { 200 200 } >>dim dup "UI Test" open-window "Click me!" [ drop ] { 50 50 } >>loc add-gadget ;