12 lines
239 B
Factor
12 lines
239 B
Factor
|
|
||
|
|
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
|
||
|
|
[ map-window ] with-window-object
|
||
|
|
|
||
|
|
[ concurrent-event-loop ] spawn
|