New Example

[rafathefull]

Hi, I create this example ;

init procedure my_init()
    memvar gtk
    public gtk := hbgi_import("Gtk")
return

function Main()
    local win, button, box, image
    memvar gtk

    gtk:init( hb_aParams() )

    win := gtk:Window:new( gtk:WindowType:TOPLEVEL )
    win:Set_Position( gtk:WindowPosition:CENTER )
    win:connect('delete-event', {|| gtk:main_quit() })

    box := gtk:vbox:new( .f., 0 )
    win:add( box )

    Image := gtk:image:new_from_file( "harbour-logo.jpg" )
    box:add( Image )

    button := gtk:Button:new_with_label(E"Click me\nRight now")
    button:connect('clicked', {|| gtk:main_quit() })
    box:add(button)

    win:show_all()
    gtk:main()
    win := NIL
    button := NIL

return 0