---

Class ::xowiki::BaseLink

::xowiki::BaseLink 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
• superclass: ::xotcl::Object
• subclass: ::xowiki::ExternalLink, ::xowiki::Link

::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)

---