---

Class ::xowiki::includelet::form-menu-button

::xowiki::includelet::form-menu-button create ... \
           [ -base base ] \
           [ -form form ] \
           [ -label_suffix (default "") ] \
           [ -link link ] \
           [ -method method ] \
           [ -package_id package_id ] \
           [ -parent_id parent_id ] \
           [ -return_url return_url ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object
• subclass: ::xowiki::includelet::form-menu-button-new, ::xowiki::includelet::form-menu-button-form, ::xowiki::includelet::form-menu-button-wf, ::xowiki::includelet::form-menu-button-answers

::xotcl::Class create ::xowiki::includelet::form-menu-button \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

• base (setter)

• form (setter)

• label_suffix (setter)

• link (setter)

• method (setter)

• package_id (setter)

• parent_id (setter)

• render (scripted)

  if {![info exists :link]} {
    if {${:parent_id} != [::${:package_id} folder_id]} {
      set parent_id ${:parent_id}
    }
    if {[info exists :return_url]} {set return_url ${:return_url}}
    set :link [::${:package_id} make_link -link ${:base} ${:form} ${:method} return_url parent_id]
  }
  if {${:link} eq ""} {
    return ""
  }
  set msg_key [namespace tail [:info class]]
  set label [_ xowiki.$msg_key [list form_name [${:form} name]]]${:label_suffix}
  return "<a href='[ns_quotehtml ${:link}]'>[ns_quotehtml $label]</a>"

• return_url (setter)

---