require("iuplua")
require("iupluagl")
require("iupluaglcontrols")

tb = iup.text{rastersize = "200x100", expand="YES",border="YES", value="I ignore the 'g' key!", border="NO", BGCOLOR = "255 255 255", cx=50,cy=50,position="50,50"}
cnvbox =     iup.glcanvasbox{
            --cbox;
			--tb;
			--BGCOLOR="200 200 200"; BORDER="NO"; 
			rastersize="500x500";
			scrollbar="YES"
        }

function cnvbox:map_cb()
	print("In map_cb",cnvbox.rastersize)
end

function cnvbox:unmap_cb()
	print("In unmap_cb",cnvbox.rastersize)
end

dlg = iup.dialog{
	--sb;
	cnvbox; 
	shrink="YES",
	size = "HALFxHALF"
}
print("Before map",cnvbox.rastersize)
dlg:map()
print("After map",cnvbox.rastersize)

dlg:show()


print("Before Loop",cnvbox.rastersize)
if (iup.MainLoopLevel()==0) then
  iup.MainLoop()
end