-- Demonstration of Fl_Positioner
-- Code by mikshaw (http://damnsmalllinux.org/cgi-bin/forums/ikonboard.cgi)

ww=350 --window width
wh=400 --window height

function thing_cb()
xpos=string.format("%.2f",thing:xvalue()*100)
ypos=string.format("%.2f",thing:yvalue()*100)
out:value("X: "..xpos.."  Y: "..ypos)
--out:value("X: "..thing:xvalue().."  Y: "..thing:yvalue())
end

w=fltk:Fl_Window(ww,wh,"murgaLua Positioner Demo")

frame=fltk:Fl_Box(2,2,ww-4,ww-4); frame:box(fltk.FL_UP_BOX)

thing=fltk:Fl_Positioner(5,5,ww-10,ww-10,"percentage of window size"); thing:box(fltk.FL_DOWN_BOX)
thing:callback(thing_cb)

out=fltk:Fl_Output(5,wh-30,ww-10,25)

w:show()
Fl:run()