Method code for $foundation.undefine_msg()

[Turn on line numbering]

---

arg name;
var d;

(> .perms(sender()) <);
if (!.defined_msgs().contains(name))
    throw(~msgnf, "Message \"" + name + "\" is not defined by " + this());

// clear it on all descendants, then us
for d in (.descendants()) {
    d.clear_msg(name);
    pause();
}
.clear_msg(name);

// bye bye
defined_msgs = dict_del(defined_msgs, name);
if (!defined_msgs)
    clear_var('defined_msgs);

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]