local run = true
local id
function OnStop()
  run = nil
  local t = id
  id = nil
  if t then DestroyTable(t) end
end

function main()
  id = AllocTable()
  AddColumn(id, 1, "Row", true, QTABLE_INT_TYPE, 10)
  AddColumn(id, 2, "Selected", true, QTABLE_INT_TYPE, 15)
  CreateWindow(id)
  for i = 1, 4 do
    SetCell(id, InsertRow(id, i), 1, tostring(i), i)
  end
  SetTableNotificationCallback(id, function(t, event, row)
    if event == QTABLE_VKEY then
      message("SetSelectedRow: " .. tostring(SetSelectedRow(id, 2)))
    elseif event == QTABLE_SELCHANGED then
      SetCell(id, row, 2, tostring(row))
    end
  end)
  while run do sleep(1000) end
end