@verb #4980:"makebutton" any any any rxd #9223
@program #4980:"makebutton" any any any
{styleref, url, linktext, ?moo_command} = args
this.owner:tell("makebutton args: ", toliteral(args))
r = {}
if (typeof(styleref) == $INT)
  style = this.stylesystem:get_style_by_id(styleref)[2]
elseif (typeof(styleref) == $STR)
  style = this.stylesystem:get_style_by_class(styleref)[2]
else
  return "Makebutton requires a number or string as args[1]"
endif
if (!url)
  return "No URL found!"
elseif (!linktext)
  return "No linktext found!"
endif
if (url[1..7] != "http://")
  url = "http://" + url
endif
style = "style='" + style + "'"
r = {"<a " + style + " href='" + url + "'>" + linktext + " </a>"}
return $string_utils:from_list(r)
"Last modified by Dax (#789) on Tue May  3 13:43:10 2005 MDT."
.