work=true
function f_cb(t_id,msg,par1,par2) --событие на нажатие клавиш
   message("msg= "..msg.." par1="..par1.." par2="..par2)
   if (msg==QTABLE_CHAR) and (par2==19) then --сохранить в CSV файл текущее состояние таблицы нужно нажать комбинацию клавиш Ctrl+S
      message("Нажали Ctrl+S")
   end
   if (msg==QTABLE_VKEY) and (par2==116) then --функция принудительного обновления таблицы при нажатии клавиши Ctrl+F5
      message("Нажали Ctrl+F5")
   end
   if msg==QTABLE_CLOSE then
      OnStop()
   end
end


function OnStop()
   work=false
   DestroyTable(t_id)
end

function main()
t_id=AllocTable()
AddColumn(t_id,1,"INT1",true,QTABLE_INT_TYPE,10)
CreateWindow(t_id)
SetWindowCaption(t_id,"Script message.")
SetTableNotificationCallback(t_id, f_cb)
tmp=InsertRow(t_id,-1) 
SetCell(t_id,tmp,1,"1",1)
   while work do
      sleep(500)
   end
end