---

Class ::xo::Table::YUIDataTableRenderer::AnchorField

::xo::Table::YUIDataTableRenderer::AnchorField create ...

In addition to the standard TableWidget's AnchorField, we also allow the attributes

• onclick
• target

Defined in /var/www/openacs.org/packages/xowiki/tcl/yui-procs.tcl

Class Relations

• class: ::xotcl::Class
• superclass: ::xo::Table::TABLE::Field

::xotcl::Class create ::xo::Table::YUIDataTableRenderer::AnchorField \
     -superclass ::xo::Table::TABLE::Field

Methods (to be applied on instances)

• render-data (scripted)

  set __name ${:name}
  if {[$line exists $__name.href] &&
      [set href [$line set $__name.href]] ne ""} {
    # use the CSS class rather from the Field than not the line
    set CSSclass ${:CSSclass}
    if {[$line exists $__name.CSSclass]} {
      set lineCSSclass [$line set $__name.CSSclass]
      if {$lineCSSclass ne ""} {
        append CSSclass " " $lineCSSclass
      }
    }
    $line instvar   [list $__name.title title]  [list $__name.target target]  [list $__name.onclick onclick]
    html::a [:get_local_attributes href title {CSSclass class} target onclick] {
      return "[next]"
    }
  }
  next

---