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.92 -r1.93 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 27 Apr 2015 15:28:22 -0000 1.92 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 10 Jun 2015 09:26:04 -0000 1.93 @@ -527,8 +527,8 @@ ::xo::Page requireJS /resources/xowiki/swfobject.js my instvar package_id name #set link [$package_id pretty_link -absolute true -siteurl http://localhost:8003 $name]/download.swf - lassign {320 240 #999999 7} width height bgcolor version - foreach a {width height bgcolor version} {if {[my exists $a]} {set $a [my set $a]}} + lassign {320 240 7} width height version + foreach a {width height version} {if {[my exists $a]} {set $a [my set $a]}} set id [::xowiki::Includelet self_id] set addParams "" foreach a {quality wmode align salign play loop menu scale} { @@ -537,7 +537,7 @@ return "
$label
"