Hello World usando os Comandos da xhgtk

Procedure Main()
    Local oWindow
    Local oButton

    INIT WINDOW oWindow AT 0,0 TITLE "Hello World" SIZE 640, 480 CENTER RESIZEABLE     
         
         @ 400, 550 BUTTON oButton ;
                    CAPTION "_Close" ;
                    SIZE  80, 80 ;
                    ACTION oWindow:close() ;
                    HINT "Close Hint" ;
                    IMAGE "gtk-close" POSITION GTK_POS_TOP;
                    OF oWindow
                             
     ACTIVATE WINDOW oWindow
Return