@verb #1619:"button_text" this none this rxdo #833
@program #1619:"button_text" this none this
":button_text({buttons}, ?html)"
"Takes a list of button names (or just a single string).  Returns a string containing the formatted button names.  Links will be A HREFs if html is supplied and true; otherwise, A XCH_CMDs."
{buttons, ?html = 0} = args
buttons = {@buttons}
markups = {}
for b in (buttons)
  link = html ? "href=\"" + tostr(toint(this)) + "?press=" + b + "\"" | "xch_cmd=\"push " + b + " on " + tostr(this) + "\""
  markups = {@markups, "&lt;<A " + link + ">" + b + "</A>&gt;"}
endfor
return "<FONT color=\"#0000ee\"><TT>" + $string_utils:from_list(markups, " ") + "</TT></FONT>"
"Last modified by Dax (#789) on Tue May  3 14:11:56 2005 MDT."
.