Method code for $event_handler.clear_event_hook()

[Turn off line numbering]

---

  1: arg event;
  2: var o;
  3: 
  4: (> .perms(sender(), 'writer) <);
  5: if (!hooks || !hooks.contains(event))
  6:     return;
  7: for o in (hooks[event])
  8:     (| o.event_hook_removed(event) |);
  9: hooks = dict_del(hooks, event);
 10: if (!hooks) {
 11:     (| clear_var('hooks) |);
 12:     (| clear_var('hooked) |);
 13: }

---

// Created 17-Dec-1996 as a part of ColdCore, see: @help Credit