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 -r1.22 -r1.23
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	4 Mar 2007 21:32:40 -0000	1.22
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	2 May 2007 10:13:39 -0000	1.23
@@ -117,8 +117,10 @@
   Class create ::xowiki::Link::image -superclass ::xowiki::Link \
       -parameter {
         href cssclass
-        float width height padding margin border border-width
-        position top botton left right
+        float width height 
+        padding padding-right padding-left padding-top padding-bottom
+        margin margin-left margin-right margin-top margin-bottom
+        border border-width position top botton left right
       }
   ::xowiki::Link::image instproc render {} {
     my instvar name package_id label
@@ -145,8 +147,10 @@
   ::xowiki::Link::image instproc render_found {link label} {
     set style ""
     foreach a {
-      float width height padding margin border border-width
-      position top botton left right
+      float width height 
+      padding padding-right padding-left padding-top padding-bottom
+      margin margin-left margin-right margin-top margin-bottom
+      border border-width position top botton left right
     } {
       if {[my exists $a]} {append style "$a: [my set $a];"}
     }