Method code for $foundation.set_msg_attr()

[Turn on line numbering]

---

arg name, attr, value;
var attrs;

(> .perms(sender()) <);
if (!defined_msgs || !dict_contains(defined_msgs, name))
    throw(~msgnf, "Message \"" + name + "\" is not defined on " + this());
if (attr == 'branches)
    [attrs, value] = (> ._parse_msg_branches(name, attr, value) <);
else
    attrs = defined_msgs[name];
if (!value)
    attrs = dict_del(attrs, attr);
else
    attrs = dict_add(attrs, attr, value);
defined_msgs = dict_add(defined_msgs, name, attrs);

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit