Method code for $event_handler.unhook_from_event()

[Turn off line numbering]

---

  1: arg event;
  2: var events;
  3: 
  4: if (hooks) {
  5:     events = (| hooks[event] |) || [];
  6:     events = setremove((| hooks[event] |) || [], sender());
  7:     if (events)
  8:         hooks = dict_add(hooks, event, setremove(hooks[event], sender()));
  9:     else
 10:         hooks = (| dict_del(hooks, event) |);
 11: }
 12: if (hooked)
 13:     hooked = hooked.del_elem(sender(), event);

---

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