local bRun, hID = true

local _Callback = function(t_id, msg, par1, par2)
  if msg == QTABLE_CLOSE then bRun = nil
  elseif msg == QTABLE_CHAR then
    SetCell(hID, 1, 1, GetCell(hID, 1, 1).image..string.char(par2))
  end
end

function main()
  hID = AllocTable()
  AddColumn(hID, 1, 'Введите тект:', true, QTABLE_STRING_TYPE, 32)
  CreateWindow(hID)
  SetWindowPos(hID, 600, 300, 200, 60)
  SetTableNotificationCallback(hID, _Callback)
  SetWindowCaption(hID, "Окно ввода текста")
  InsertRow(hID, -1)
  while bRun do sleep(100) end
end

function OnStop()
  bRun = nil
end