require( "iuplua" )
require( "iupluacontrols" )

mat = iup.matrix {
    numcol=5, 
    numlin=3,
    numcol_visible=5, 
    numlin_visible=3, 
    expand = "HORIZONTAL",
    resizematrix = "YES"}

mat:setcell(0,0,"Inflation")
mat:setcell(1,0,"Medicine")
mat:setcell(2,0,"Food")
mat:setcell(3,0,"Energy")
mat:setcell(0,1,"January 2000")
mat:setcell(0,2,"February 2000")
mat:setcell(1,1,"5.6")
mat:setcell(2,1,"2.2")
mat:setcell(3,1,"7.2")
mat:setcell(1,2,"4.6")
mat:setcell(2,2,"1.3")
mat:setcell(3,2,"1.4")

dlg = iup.dialog{iup.vbox{mat; margin="10x10"}; shrink="yes"}

function dlg:resize_cb(w, h)
	iup.Refresh(dlg)
  mat.rasterwidth1 = nil
  mat.rasterwidth2 = nil
  mat.rasterwidth3 = nil
  mat.rasterwidth4 = nil
  mat.rasterwidth5 = nil
	mat.fittosize = "columns"
	return iup.IGNORE
end

dlg:showxy(iup.CENTER, iup.CENTER)

if (iup.MainLoopLevel()==0) then
  iup.MainLoop()
end
