Class ::xowiki::BaseLink

::xowiki::BaseLink[i] create ... \
           [ -anchor (default "") ] \
           [ -cssclass cssclass ] \
           [ -cssid cssid ] \
           [ -extra_query_parameter extra_query_parameter ] \
           [ -href href ] \
           [ -label label ] \
           [ -query (default "") ] \
           [ -target target ] \
           [ -title title ]

Class Relations

  • class: ::xotcl::Class[i]
  • superclass: ::xotcl::Object[i]
  • subclass: ::xowiki::ExternalLink[i], ::xowiki::Link[i]
::xotcl::Class create ::xowiki::BaseLink \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

  • anchor (setter)

  • anchor_atts (scripted)

    set atts {}
    if {[info exists :title]}  {lappend atts "title='[string map [list ' {'}] ${:title}]'"}
    if {[info exists :target] && [:built_in_target]} {
      lappend atts "target='${:target}'"
    }
    return [join $atts " "]
  • built_in_target (scripted)

    # currently, we do not support named frames, which are mostly deprecated
    return [expr {${:target} in {_blank _self _parent _top}}]
  • cssclass (setter)

  • cssid (setter)

  • extra_query_parameter (setter)

  • href (setter)

  • label (setter)

  • mk_css_class (scripted)

    set cls [expr {[info exists :cssclass] ? ${:cssclass} : $default}]
    if {$additional ne ""} {
      if {$cls eq ""} {set cls $additional} else {append cls " " $additional}
    }
    if {$cls ne ""} {set cls "class='$cls'"}
    return $cls
  • mk_css_class_and_id (scripted)

    if {[info exists :cssid]} {set id "id='${:cssid}'"} else {set id ""}
    set cls [:mk_css_class -additional $additional -default $default]
    return [string trim "$cls $id"]
  • query (setter)

  • target (setter)

  • title (setter)

Variables

::xowiki::BaseLink set __default_metaclass ::xotcl::Class
::xowiki::BaseLink set __default_superclass ::xotcl::Object