s_mike@rambler.ru (Все сообщения пользователя)

   local  run  =   true 
 local  tid  =   nil 
 local  file

 local  gcrunner  =  ( function ()
   local  t  =  {}
  setmetatable(t, { __gc  =   function ()
     local  t  =  tid
    tid  =   nil 
     if  t  then   DestroyTable (t)  end 
    file:write( "__gc\n" )
    file:close()
   end  })
   return  t
 end )()

 function   OnInit (script_path)
  file  =   io.open (script_path  ..   ".log" ,  "w" )
  file:write( "OnInit\n" )
 end 

 function   main ()
  file:write( "main\n" )
  tid  =   AllocTable ()
   AddColumn (tid,  1 ,  '1' ,  true , QTABLE_INT_TYPE,  1 )
   CreateWindow (tid)
   while  run  do   sleep ( 300 )  end 
  file:write( "main stopped\n" )
 end 

 function   OnStop ()
  run  =   nil 
  file:write( "OnStop\n" )
 end