View/Edit #125:set_text _set_text

Name(s): set_text _set_text

1:  if (this.max_lines > 30)
2:    return pass(@args)
3:  else
4:    cp = caller_perms()
5:    newtext = args[1]
6:    if ($perm_utils:controls(cp, this) || this:is_writable_by(cp))
7:      if (typeof(newtext) == $STR)
8:        newtext = {newtext}
9:      elseif (typeof(newtext) != $LIST)
10:       raise(E_TYPE)
11:     endif
12:     this.text = newtext
13:   else
14:     raise(E_PERM)
15:   endif
16: endif
17: "Last modified by Dax (#789) on Wed May  4 06:46:01 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.