Hello World usando as classes da xhgtk

Procedure Main()
    Local oWindow
    Local oButton

    oWindow := TWindow():Create(.t.)    
    oWindow:title := "Hello World"
    oWindow:center := .t.   

    oButton := TButton():Create()
    oButton:row := 10
    oButton:col := 20
    oButton:width := 80
    oButton:height := 25
    oButton:label := "Close"
    oButton:action := {|| oWindow:Close() }
    oButton:tooltip := "Close Hint test"
    oButton:image := "gtk-close"

    oWindow:add( oButton )    
    oWindow:activate()
Return