9 lines
250 B
Text
9 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
|