---

Class ::xo::Table::TABLE::AnchorField

::xo::Table::TABLE::AnchorField create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xo::Table::TABLE::Field
• subclass: ::xo::Table::TABLE2::AnchorField, ::xo::Table::TABLE3::AnchorField

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

Methods (to be applied on instances)

• render-data (scripted)

  if {[$line exists ${:name}.href]
      && [set href [$line set ${:name}.href]] ne ""
    } {
    # Default class is from the field definition. To it we
    # append the class coming from 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]
    html::a [:get_local_attributes href title {CSSclass class}] {
      return [next]
    }
  }
  next

---