16 lines
359 B
Text
16 lines
359 B
Text
\( Graphical Hello
|
|
\)
|
|
make main window:
|
|
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::add widget (new GTK widget label "Hello!")
|
|
:>win
|
|
main (args):+
|
|
GTK init args
|
|
win =: make main window
|
|
win::show all
|
|
GTK main win
|
|
\+ stdlib
|
|
\+ ./TAVPL_gtk.tavh
|