Method code for $has_text.set_text()

[Turn on line numbering]

---

arg txt;

// resets ,text to the list sent
if (!.is_writable_by(sender()) && sender() != this())
    throw(~perm, "Permission Denied.");
if (.get_setting("plaintext", $has_text)) {
    if (type(txt) == 'string)
        text = [txt];
    else
        text = txt;
} else {
    text = $compiler.compile_cml(txt);
}

---

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