poll_results { -bar_color "blue" -display_values_p "t" -display_scale_p "t" -bar_height "15" } resultsWhat it does:
Defined in: /web/philip/tcl/poll-defs.tcl
Source code:
arg_parser_for_poll_results $args
if { [llength $results] != 0 } {
set result [gr_sideways_bar_chart -bar_color_list [list $bar_color] -display_values_p $display_values_p -display_scale_p $display_scale_p -bar_height $bar_height $results]
} else {
set result ""
}
return $result