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

---

객체에 새로운 이벤트 프로시저를 설정하기에는

객체에 새로운 이벤트 프로시저를 설정하기에는 멤버 함수 addProcedure() 를 사용합니다.

이벤트 프로시저 추가 멤버 함수	기능
addProcedure(string,string,long)	새로운 이벤트 프로시저의 추가

이벤트 프로시저 객체를 다음과 같이 생성합니다. 이벤트 프로시저 명칭, 프로시저 명칭, 트리거(trigger)를 지정합니다.

let new_event_procedure obj =
  (* 신규 추가되는 이벤트 프로시저 함수 *)
  obj -> setProperty ("backColor","#00ff00");
  ()
let _ = Callback.register "new_event_procedure" new_event_procedure

let event_procedure obj =
  (* "new-ep"란 EP명칭의 이벤트 프로시저의 작성                  *)
  (*  트리거(trigger) WSEV_MOUSE_IN (MOUSE_IN  트리거(trigger))  *)
  obj-> addProcedure ("new-ep", "new_event_procedure", _WSEV_MOUSE_IN);
  ()
let _ = Callback.register "event_procedure" event_procedure