Listing a noticeboard contents

proc showNbs {item} {
#+
# Lists the names and values of all the children of the noticeboard
# item $item. If $item is a noticeboard name, the entire noticeboard is
# listed.
#-
    set info [nbs info $item]
    if {[lindex $info 0]} {
        puts "$item: ([lindex $info 1]*[lindex $info 2]) \
            [lindex $info 3] [nbs get $item]"
    } {
        for {set i 1} {$i < [llength $info]} {incr i} {
           showNbs $item.[lindex $info $i]
        }
    }
}