require 'phi'

include Phi

form = Form.new

page_scroller = PageScroller.new form
page_scroller.align = Phi::AL_TOP
page_scroller.color = CL_WHITE
page_scroller.auto_scroll = false
page_scroller.on_resize = proc do
page_scroller.control.repaint
end
toolbar = ToolBar.new page_scroller
p toolbar.align
toolbar.show_captions = true
toolbar.color = CL_BLACK

p page_scroller.controls

form.show

Phi.mainloop
p toolbar.width
