View/Edit #12:set_mail_option set_edit_option set_display_option set_visual_option set_general_option set_builder_option

Switch to edit mode.

Name(s): set_mail_option set_edit_option set_display_option set_visual_option set_general_option set_builder_option
1:  ":set_edit_option(oname,value)"
2:  ":set_display_option(oname,value)"
3:  ":set_mail_option(oname,value)"
4:  "Changes the value of the named option."
5:  "Returns a string error if something goes wrong."
6:  if (!(caller == this || $perm_utils:controls(caller_perms(), this)))
7:    return tostr(E_PERM)
8:  endif
9:  "...this is kludgy, but it saves me from writing the same verb 3 times."
10: "...there's got to be a better way to do this..."
11: verb[1..4] = ""
12: foo_options = verb + "s"
13: "..."
14: if (typeof(s = #0.(foo_options):set(this.(foo_options), @args)) == $STR)
15:   return s
16: elseif (s == this.(foo_options))
17:   return 0
18: else
19:   this.(foo_options) = s
20:   return 1
21: endif
22: "Last modified by Dax (#789) on Tue May  3 13:43:06 2005 MDT."

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

You are not logged in.

[home | help | who | search | setup | code]