require 'phi'
include Phi

form = Form.new

i = TreeView.new form, :tree_view
i.align = Phi::AL_CLIENT
i.items

i = Button.new form, :btn1, '&Load'
i.align = Phi::AL_TOP

form.show

form.btn1.on_click = proc do
  form.tree_view.load 'tree.dat'
end

Phi.mainloop
