ad_navbar

ad_navbar   args

produces navigation bar. notice that navigation bar is different than context bar, which exploits a tree structure. navbar will just display a list of nicely formatted links.

Source code:

    set counter 0
    foreach arg $args {
	lappend link_list "<a href=\"[lindex $arg 0]\">[lindex $arg 1]</a>"
	incr counter
    }
    if { $counter > 0 } {
	return "\[[join $link_list " | "]\]"
    } else {
	return ""
    }