# This script shall be called by ole.exe.
# see $(APOLLO)/src/ole/ole.dpr.

require 'phi'
include Phi
Ole::FormConsole.hide
form = Form.new
Button.new form, :btn
i = form.btn
i.parent = form
i.align = Phi::AL_CLIENT
i.caption = 'hello'
i.on_click = proc do |sender|
  sender.caption = Time.now.to_s
  print "clicked\n"
end
form.show
Phi.mainloop
