function OnStop()
  InsertRow
  SetCell
  isRun = false
  for(; !isRun; )
  {
    for(MSG msg; PeekMessage(&msg, ...); )
    {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
    }
  }
end

function main()
   ...
   isRun = true
end

IsRun = true


function TableCreate()

  g_tid = AllocTable()

  if (g_tid ~= nil) then

    SetTableNotificationCallback(g_tid, OnTableEvent)

    AddColumn(g_tid, 1, "Сообщение", true, QTABLE_STRING_TYPE, 100)

    if (CreateWindow(g_tid)) then

      SetWindowCaption(g_tid, "Таблица")

      SetWindowPos(g_tid, 0, 0, 800, 200)

    else

      DestroyTable(g_tid)

      g_tid = nil

    end

  end

end


function OnTableEvent(tid, msg, par1, par2)

  PrintDbgStr("OnLogTableEvent enter")

  PrintDbgStr("OnLogTableEvent leave")

end


function OnInit(script)

  PrintDbgStr("OnInit enter")

  TableCreate()

  local row = InsertRow(g_tid, -1)
  SetCell(g_tid, row, 1, "OnInit: Скрипт запущен.")

  PrintDbgStr("OnInit leave")

end


function OnStop(signal)

  PrintDbgStr("OnStop enter")

  IsRun = false

  local row = InsertRow(g_tid, -1)
  SetCell(g_tid, row, 1, "OnStop: Скрипт остановлен.")

  PrintDbgStr("OnStop leave")

end


function main()

  PrintDbgStr("main enter")

  local row = InsertRow(g_tid, -1)
  SetCell(g_tid, row, 1, "main: Скрипт запущен.")

  while (IsRun) do

    sleep(500)

  end

  local row = InsertRow(g_tid, -1)
  SetCell(g_tid, row, 1, "main: Скрипт остановлен.")

  PrintDbgStr("main leave")

end

При его запуске в отладочную консоль выводятся строки:

OnInit enter
OnInit leave
main enter

Появляется окно с таблицей и в неё выводятся строки:

OnInit: Скрипт запущен.
main: Скрипт запущен.

До этого момента всё работает как надо. Если же далее остановить скрипт из диалога управления, то в консоль выводятся строки:

OnStop enter
OnStop leave

Далее окно диалога управления подвисает на 5 секунд. Откуда это время понятно, ожидание завершения потока функции main по умолчанию.

И только сейчас, по истечении этого времени в окне с таблицей появляется строка:

OnStop: Скрипт остановлен.