USING: io concurrency x concurrent-widgets ;
f initialize-x
"Hey Hey" create-label
[ map-window ] with-window-object
"Yo Yo Yo" [ "button pressed" print ] create-button
[ concurrent-event-loop ] spawn