template::tabstrip::set_current_tab (public)

 template::tabstrip::set_current_tab dlg_name tab_name [ rel_level ]

Defined in packages/acs-templating/tcl/tab-procs.tcl

Set the current tab (to be highlighted as a cue for the user) in the given tabstrip.

Parameters:

dlg_name
tab_name
rel_level (defaults to "2")

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

  
  set level [template::adp_level]
  upvar #$level $dlg_name:properties properties 
  upvar #$level $dlg_name:$tab_name element

  set properties(current_tab) $tab_name

  # Set the variable in calling frame(s) so that the ADP can access them
  upvar $rel_level $dlg_name dlg2
  if { [info exists element] } {
    set dlg2(src) $element(template)
    set element(current) 1
  }

  set dlg2(tab) $properties(current_tab)

  # Store the current tab. This should really be a cookie, but I can't
  # set them correctly for some reason.
  nsv_set tabstrip_tab $properties(cookie_name) $tab_name

XQL Not present:

Generic, PostgreSQL, Oracle