WideStudio Programming Guide	WideStudio Index Table of contents

---

How to add the event procedure on the programs

You can add the event procedure with the method: WSCbase::addProcedure().

The method	Description
addProcedure(string,string,long)	Add the new event procedure.

Add the event procedure as follows.

let new_event_procedure obj =
  (* a sample of the event procedure.*)
  obj -> setProperty ("backColor","#00ff00");
  ()
let _ = Callback.register "new_event_procedure" new_event_procedure

let event_procedure obj =
  (* Create the procedure instance which name is "new-ep". *)
  (* The trigger is  WSEV_MOUSE_IN (MOUSE_IN trigger.)     *)
  obj-> addProcedure ("new-ep", "new_event_procedure", _WSEV_MOUSE_IN);
  ()
let _ = Callback.register "event_procedure" event_procedure