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]
          }
      }
  }