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.15 -r1.16
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	10 Dec 2006 16:56:52 -0000	1.15
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	10 Dec 2006 17:10:24 -0000	1.16
@@ -108,7 +108,7 @@
  
   Class create ::xowiki::Link::image -superclass ::xowiki::Link \
       -parameter {
-        href
+        href cssclass
         float width height padding margin border border-width
         position top botton left right
       }
@@ -144,12 +144,13 @@
     }
     if {$style ne ""} {set style "style='$style'"}
     set label [string map [list ' "'"] $label]
+    set cls [expr {[my exists cssclass] ? [my cssclass] : "xowikiimage"}]
     if {[my exists href]} {
       set href [my set href]
       if {[string match "java*" $href]} {set href .}
-      return "<a href='$href'><img class='xowikiimage'src='$link' alt='$label' title='$label' $style></a>"
+      return "<a href='$href'><img class='$cls' src='$link' alt='$label' title='$label' $style></a>"
     } else {
-      return "<img class='xowikiimage' src='$link' alt='$label' title='$label' $style>"
+      return "<img class='$cls' src='$link' alt='$label' title='$label' $style>"
     }
   }