local  run, id  =   true 
 function   OnStop ()
  run  =   nil 
   DestroyTable (id)
   return   100 
 end 

 function   main ()
  id  =   AllocTable ()
   AddColumn (id,  1 ,  "" ,  true , QTABLE_STRING_TYPE,  20 )
   CreateWindow (id)
   SetTableNotificationCallback (id,  function  (id, event)
     if  event  =  =  QTABLE_CLOSE  then 
      run  =   false 
     elseif  event  =  =  QTABLE_VKEY  then 
       for  row  =   1 ,  2   do 
          SetColor (id, row, QTABLE_NO_INDEX,  0x0000FF , QTABLE_DEFAULT_COLOR,  0x0000FF , QTABLE_DEFAULT_COLOR)
       end 
     end 
   end )
   for  row  =   1 ,  2   do 
     InsertRow (id, row)
     SetCell (id, row,  1 , tostring(row))
   end 
   while  run  do   sleep ( 500 )  end 
 end   

local run, id = true
function OnStop()
  run = nil
  DestroyTable(id)
end

function main()
  id = AllocTable()
  AddColumn(id, 1, "", true, QTABLE_STRING_TYPE, 20)
  CreateWindow(id)
  SetTableNotificationCallback(id, function (id, event)
    if event == QTABLE_CLOSE then
      run = false
    elseif event == QTABLE_VKEY then
      SetColor(id, 2, QTABLE_NO_INDEX, 0x0000FF, 0, 0x0000FF, 0)
    end
  end)
  for row = 1, 2 do
    InsertRow(id, row)
    SetCell(id, row, 1, tostring(row))
  end
  while run do sleep(500) end
end

local run, id = true
function OnStop()
  run = nil
  DestroyTable(id)
  return 100
end

function main()
  id = AllocTable()
  AddColumn(id, 1, "", true, QTABLE_STRING_TYPE, 20)
  CreateWindow(id)
  SetTableNotificationCallback(id, function (id, event)
    if event == QTABLE_CLOSE then
      run = false
    elseif event == QTABLE_VKEY then
      for row = 1, 2 do
         SetColor(id, row, QTABLE_NO_INDEX, 0x0000FF, QTABLE_DEFAULT_COLOR, 0x0000FF, QTABLE_DEFAULT_COLOR)
      end
    end
  end)
  for row = 1, 2 do
    InsertRow(id, row)
    SetCell(id, row, 1, tostring(row))
  end
  while run do sleep(500) end
end

local SetColor_ = SetColor
function SetColor(t_id, row, col, b_color, f_color, sel_b_color, sel_f_color)
  if row == -1 and col == -1 and (b_color == -1 or f_color == -1 or sel_b_color == -1 or sel_f_color == -1) then
    message(debug.traceback(), 3)
  end
  return SetColor_(t_id, row, col, b_color, f_color, sel_b_color, sel_f_color)
end

SetColor(id, -1, -1, b_color, f_color, -1, -1)

local SetColor_ = SetColor
function SetColor(t_id, row, col, b_color, f_color, sel_b_color, sel_f_color)
  if row == -1 and col == -1 and (b_color == -1 or f_color == -1 or sel_b_color == -1 or sel_f_color == -1) then
    message(debug.traceback(), 3)
    return nil
  else
    return SetColor_(t_id, row, col, b_color, f_color, sel_b_color, sel_f_color)
  end
end

   SetColor (id, QTABLE_NO_INDEX, QTABLE_NO_INDEX, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
 SetColor (id, QTABLE_NO_INDEX, QTABLE_NO_INDEX, QTABLE_DEFAULT_COLOR,  0 ,  0 ,  0 )
 SetColor (id, QTABLE_NO_INDEX, QTABLE_NO_INDEX,  0xFFFFFF ,  0 ,  0xFFFFFF , QTABLE_DEFAULT_COLOR)  

 while f do          -- бесконечный цикл до остановки скрипта
  if m>2 then DestroyTable(t);m=m-3;end;
  if m==1 then u();end;      -- рисуем или убираем всплывающее меню
  if m==2 then          -- при открытом контекстном меню
 ...

SetColor(id, QTABLE_NO_INDEX, QTABLE_NO_INDEX, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR, QTABLE_DEFAULT_COLOR)
SetColor(id, QTABLE_NO_INDEX, QTABLE_NO_INDEX, QTABLE_DEFAULT_COLOR, 0, 0, 0)
SetColor(id, QTABLE_NO_INDEX, QTABLE_NO_INDEX, 0xFFFFFF, 0, 0xFFFFFF, QTABLE_DEFAULT_COLOR)