RosettaCodeData/Task/Window-creation/TAV/window-creation.tav

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