xowf::WorkflowPage instproc render_form_action_buttons_widgets (public)

 <instance of xowf::WorkflowPage> render_form_action_buttons_widgets \
    [ -CSSclass CSSclass ] buttons

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

With the given set of buttons, produce the HTML for the button container and the included inputs.

Switches:

-CSSclass (optional)

Parameters:

buttons (required)

Testcases:

create_workflow_with_instance

Source code:

if {[llength $buttons] > 0} {
  #
  # Build button groups based on "form_button_wrapper_CSSclass".
  #
  set previous_wrapper_class "NONE"
  set wrapper_groups {}
  set group_num 0
  foreach f $buttons {
    set wrapper_class [$f form_button_wrapper_CSSclass]
    if {$wrapper_class eq $previous_wrapper_class} {
      dict lappend wrapper_groups [list $wrapper_class $group_num] $f
      continue
    }
    incr group_num
    dict lappend wrapper_groups [list $wrapper_class $group_num] $f
    set previous_wrapper_class $wrapper_class
  }

  foreach wrapper_group [dict keys $wrapper_groups] {
    ::html::div -class [lindex $wrapper_group 0] {
      foreach f [dict get $wrapper_groups $wrapper_group] {
        $f render_input
      }
    }
  }
}

XQL Not present:

Generic, PostgreSQL, Oracle