Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	12 Jul 2007 20:59:17 -0000	1.28
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	27 Jul 2007 21:52:56 -0000	1.29
@@ -182,7 +182,10 @@
     }
   }
   
-  Class create ::xowiki::Link::file -superclass ::xowiki::Link::image
+  Class create ::xowiki::Link::file -superclass ::xowiki::Link::image  -parameter {
+    width height align pluginspage pluginurl hidden href target
+    autostart loop volume controls controller mastersound starttime endtime
+  }
   ::xowiki::Link::file instproc resolve {} {
     set item_id [next]
     # my log "-- file, lookup of [my name] returned $item_id"
@@ -191,9 +194,22 @@
     }
     return $item_id
   }
-  ::xowiki::Link::file instproc render_found {href label} {
-    return "<a href='$href' style='background: url(/resources/xowiki/file.jpg) \
+  ::xowiki::Link::file instproc render_found {internal_href label} {
+    foreach f {
+      width height align pluginspage pluginurl hidden href target
+      autostart loop volume controls controller mastersound starttime endtime
+    } {
+      if {[my exists $f]} {
+	append embed_options "$f = '[my set $f]' "
+      }
+    }
+    if {![info exists embed_options]} {
+      return "<a href='$internal_href' style='background: url(/resources/xowiki/file.jpg) \
         right center no-repeat; padding-right:9px'>$label</a>"
+    } else {
+      set internal_href [string map [list %2e .] $internal_href]
+      return "<embed src='$internal_href' name=\"[my name]\" $embed_options></embed>"
+    }
   }
 
   Class create ::xowiki::Link::swf -superclass ::xowiki::Link::file -parameter {