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

---

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

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

添加事件过程的成员函数	功能
mwt::WSCbase_addProcedure(char*,char*,long)	添加新的事件过程

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

use mwt;

# 新建的事件过程函数
sub _new_event_procedure {
  my ($object) = @_;
  return;
}
sub event_procedure {
  my ($object) = @_;
  # 生成名为"new proc"的事件过程
  # 触发器为WSEV_MOUSE_IN (MOUSE_IN 触发器)
  $object->addProcedure("new proc","_new_event_procedure",$mwt::WSEV_MOUSE_IN);
  return;
}
1;