---

Class ::xowiki::includelet::LTI-LaunchButton

::xowiki::includelet::LTI-LaunchButton create ... \
           [ -__decoration (default "none") ] \
           [ -launch_button_label (default "Join Meeting") ] \
           [ -launch_button_title (default "Click to join") ] \
           [ -parameter_declaration (default "
                {-launch_button_label "Join Meeting"}
                {-launch_button_title "Click to join"}
                {-title ""}
                {-presentation "window"}
            ") ] \
           [ -presentation (default "window") ] \
           [ -title (default "") ] \
           [ -title (default "") ]

Class Relations

• class: ::xowiki::IncludeletClass
• superclass: ::xowiki::Includelet
• subclass: ::xowiki::includelet::launch-zoom, ::xowiki::includelet::launch-jupyter, ::xowiki::includelet::launch-bigbluebutton

::xowiki::IncludeletClass create ::xowiki::includelet::LTI-LaunchButton \
     -superclass ::xowiki::Includelet

Methods (to be applied on instances)

• __decoration (setter)

• init (scripted)

  #
  # Map parameters of class to the configurable includelet
  # parameters to ease syntax of LTI button definitions
  #
  set result {}
  foreach pair ${:parameter_declaration} {
      lassign $pair k v
      if {$k eq "-launch_button_label"} {
          set v ${:launch_button_label}
      } elseif {$k eq "-launch_button_title"} {
          set v ${:launch_button_title}
      } elseif {$k eq "-title"} {
          set v ${:title}
      } elseif {$k eq "-presentation"} {
          set v ${:presentation}
      }
      lappend result [list $k $v]
  }
  set :parameter_declaration $result
  next

• launch_button_label (setter)

• launch_button_title (setter)

• parameter_declaration (setter)

• presentation (setter)

• render_form_button (scripted)

  set lti [$class new  -resource_link_id $resource_link_id  -resource_link_title $resource_link_title  -launch_presentation_return_url $return_url  ]
  set result [$lti form_render]
  $lti destroy
  
  return [subst {
      <button class="btn btn-primary" title="$launch_button_title"
      type="submit" form="[dict get $result form_name]">$launch_button_label</button>
      [dict get $result HTML]
  }]

• title (setter)

---