@verb #4980:"makeparamnode" any any any rxd #9223
@program #4980:"makeparamnode" any any any
{name, value, ?valuetype = "data"} = args
r = {}
quicksixo = {"autohref", "autoplay", "bgcolor", "cache", "controller", "correction", "dontflattenwhensaving", "enablejavascript", "endtime", "fov", "goto", "height", "hidden", "hotspot", "href", "kioskmode", "loop", "movieid", "moviename", "node", "pan", "playeveryframe", "pluginspage", "qtnext", "qtsrc", "qtsrcchokespeed", "qtsrcdontusebrowser", "scale", "src", "starttime", "target", "targetcache", "tilt", "type", "urlsubstitute", "volume", "width"}
realeighto = {"autogotourl", "autostart", "backgroundcolor", "center", "classid", "console", "controls", "height", "id", "imagestatus", "loop", "maintainaspect", "name", "nojava", "nolabels", "nologo", "numloop", "param", "prefetch", "region", "scriptcallbacks", "shuffle", "src", "type", "width"}
if (!(name in quicksixo) && !(name in realeighto))
  return "ILLEGAL QUICKTIME/REALPLAYER PARAMETER NAME REPORTED BY :MAKEPARAMNODE!"
endif
r = {@r, "<param "}
r = {@r, "name=\"" + name + "\" "}
r = {@r, "value=\"" + value + "\" "}
r = {@r, "valuetype=\"" + valuetype + "\""}
r = {@r, ">"}
r = $string_utils:from_list(r)
this.owner:tell("makeparamnode output:", "<xmp>", toliteral(r), "</xmp>")
return r
"Last modified by Wingy (#9223) on Wed Jan 29 10:36:27 2003 MST."
.