@verb #4980:"movie1" none none none rxd #9223
@program #4980:"movie1" none none none
url = "http://www.bcarchives.gov.bc.ca/exhibits/timemach/galler07/videos/small/smi00001.mpg"
mimetype = "video/mpeg"
ObjectStyleID = stylenum = 4
ContainerStyleID = 5
height = 100
width = 100
stylenum = this.stylesystem:get_style_by_id(ObjectStyleID)[1]
if (this.stylesystem.rulebucket[stylenum]->height != tostr(height) + "pt" || this.stylesystem.rulebucket[stylenum]->width != tostr(width) + "pt")
  this.stylesystem:setparam(stylenum, "height", tostr(height) + "pt")
  this.stylesystem:setparam(stylenum, "width", tostr(width) + "pt")
  stylenum = this.stylesystem:get_style_by_id(ContainerStyleID)[1]
  this.stylesystem:setparam(stylenum, "border", "10pt blue groove")
endif
objnode = this:makeobjectnode(url, mimetype, ObjectStyleID, {{"scale", "tofit"}, {"autoplay", "true"}})
contained = this:makecontainernode("td", objnode, ContainerStyleID)
player:tell(contained)
"Last modified by Wingy (#9223) on Wed Jan 29 10:26:15 2003 MST."
.