Hello World usando as funções da xhgtk

Procedure Main ()
    Local pWindow
    Local pButton

    gtk_init()

    pWindow := gtk_window_new( GTK_WINDOW_TOPLEVEL )
    gtk_window_set_title( pWindow, "Hello World" )
    
    pButton := gtk_button_new_with_label( "Close" )
    gtk_container_add( pWindow, pButton )
    
    gtk_signal_connect( pWindow, "destroy", {|| gtk_main_quit() } )
    gtk_signal_connect( pButton, "clicked", {|| gtk_main_quit() } )
    
    gtk_widget_show_all( pWindow )
    
    gtk_main()
Return