#hws
func init()

fvar(e)
e = code(cgt.el_get_code_name(cgt.el_get_parent_id()))

fvar(old)
  old = block.select(BLK_PRIV_MTD)
  
     println('thrd:PThread;')
     println('procedure Execute',code(_id_),'(Obj:PObj);')

block.select(BLK_MTD_BODY)
println ('procedure TClass',e,'.Execute',code(_id_),';')
println ('begin')
event(onExec)
println ('end;')

  block.select(old)
end




func doStart()
   println('thrd := NewThread;')
   println('thrd.OnExecute := Execute',code(_id_),';')
   println('thrd.AutoFree := true;')
   println('thrd.Resume;')
end

func doStop()
 
end