10 lines
250 B
Text
10 lines
250 B
Text
|
main (args):+
|
||
|
|
GTK init args
|
||
|
|
win =: new GTK window \ currently only top-level
|
||
|
|
win::set title "Hello GTK"
|
||
|
|
win::set size 200, 100
|
||
|
|
win::connect 'destroy' to `GTK main quit`
|
||
|
|
win::show all
|
||
|
|
GTK main win
|
||
|
|
\+ ./TAVPL_gtk.tavh
|