#include once "IUP/iup.bi"
#include once "IUP/iupcontrols.bi"

#define NULL 0

function create_mat() as Ihandle ptr
    dim as  Ihandle ptr mat = IupMatrix(NULL)

    IupSetAttribute(mat,"NUMCOL","20")
    IupSetAttribute(mat,"NUMLIN","30")

    IupSetAttribute(mat,"NUMCOL_VISIBLE","2")
    IupSetAttribute(mat,"NUMLIN_VISIBLE","3")

    IupSetAttribute(mat,"0:0","Inflation")
    IupSetAttribute(mat,"1:0","Medicine")
    IupSetAttribute(mat,"2:0","Food")
    IupSetAttribute(mat,"3:0","Energy")
    IupSetAttribute(mat,"0:1","January 2000")
    IupSetAttribute(mat,"0:2","February 2000")
    IupSetAttribute(mat,"1:1","5.6")
    IupSetAttribute(mat,"2:1","2.2")
    IupSetAttribute(mat,"3:1","7.2")
    IupSetAttribute(mat,"1:2","4.5")
    IupSetAttribute(mat,"2:2","8.1")
    IupSetAttribute(mat,"3:2","3.4")

    IupSetAttribute(mat,"RESIZEMATRIX","YES")
    IupSetAttribute(mat,"MARKMODE","CELL")
    IupSetAttribute(mat,"MARKMODE","LINCOL")
    IupSetAttribute(mat,"MULTIPLE","YES")
    IupSetAttribute(mat,"AREA","NOT_CONTINUOUS")

    return mat
end function

'/* Main program */

dim as Ihandle ptr dlg

IupOpen()
IupControlsOpen ()

dlg = IupDialog(create_mat())
IupSetAttribute(dlg, "TITLE", "IupMatrix")

IupShow (dlg)
IupMainLoop ()
IupClose ()
  'return EXIT_SUCCESS;