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 (required)
tab_name (required)
rel_level (optional, defaults to "2")

Partial Call Graph (max 5 caller/called nodes):
%3 template::tabstrip::add_tab template::tabstrip::add_tab (public) template::tabstrip::set_current_tab template::tabstrip::set_current_tab template::tabstrip::add_tab->template::tabstrip::set_current_tab template::tabstrip::create template::tabstrip::create (public) template::tabstrip::create->template::tabstrip::set_current_tab template::adp_level template::adp_level (public) template::tabstrip::set_current_tab->template::adp_level

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
[ hide source ] | [ make this the default ]
Show another procedure: