@verb #4980:"makeobjectnode" any any any rxd #9223
@program #4980:"makeobjectnode" any any any
{data, mimetype, ?stylenum = 4, ?params = {}} = args
r = {}
stylestring = "style=\"" + this.stylesystem:get_style_by_id(stylenum)[2] + "\""
r = {@r, "<object " + stylestring}
r = {@r, " type=\"" + mimetype + "\" "}
r = {@r, "data=\"" + data + "\""}
r = {@r, ">"}
for param in (params)
  r = {@r, this:makeparamnode(param[1], param[2])}
endfor
r = {@r, "</object>"}
r = $string_utils:from_list(r)
this.owner:tell("makeobjectnode output: ", "<xmp>", toliteral(r), "</xmp>")
return r
"Last modified by Wingy (#9223) on Wed Jan 29 10:36:42 2003 MST."
.