[Turn off line numbering]1: arg name, @definer; 2: var a, message, mes, m; 3: 4: //retrieve the specified message as ctext 5: if (definer) 6: definer = definer[1]; 7: else 8: definer = (._find_message_definer(name))[2]; 9: message = $message_frob.new(); 10: for a in (.ancestors()) { 11: catch ~methodnf, ~messagenf 12: return a.local_message(name, definer); 13: } 14: throw(~messagenf, "No matching message.");
// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit