Class ::xo::Table::YUIDataTableRenderer::AnchorField (public)

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

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

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

• onclick
• target

Testcases:

No testcase defined.

Source code:

::nsf::object::alloc ::xotcl::Class ::xo::Table::YUIDataTableRenderer::AnchorField {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object}
::xo::Table::YUIDataTableRenderer::AnchorField instproc render-data line {
        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
      }
::nsf::relation::set ::xo::Table::YUIDataTableRenderer::AnchorField superclass ::xo::Table::TABLE::Field

XQL Not present:

Generic, PostgreSQL, Oracle