WideStudio/MWT Programming Guide	WideStudio/MWT Index Table of contents

---

在对象中设置新的事件过程

通过addProcedure()成员函数，在对象中设置新的事件过程

添加事件过程的成员函数	功能
addProcedure(string,string,long)	添加新的事件过程

按照如下步骤生成事件过程对象。

let new_event_procedure obj =
  (* 新建的事件过程函数 *)
  obj -> setProperty ("backColor","#00ff00");
  ()
let _ = Callback.register "new_event_procedure" new_event_procedure

let event_procedure obj =
  (* 生成名为"new proc"的事件过程                *)
  (* 触发器为WSEV_MOUSE_IN (MOUSE_IN 触发器)     *)
  obj-> addProcedure ("new-ep", "new_event_procedure", _WSEV_MOUSE_IN);
  ()
let _ = Callback.register "event_procedure" event_procedure