Method code for $message_frob.message()

[Turn on line numbering]

---

arg name, @definer;
var a, message, mes, m;

//retrieve the specified message as ctext
if (definer)
    definer = definer[1];
else
    definer = (._find_message_definer(name))[2];
message = $message_frob.new();
for a in (.ancestors()) {
    catch ~methodnf, ~messagenf
        return a.local_message(name, definer);
}
throw(~messagenf, "No matching message.");

---

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