#!pish -f

option add *Background beige
option add *Button.Background red

option add *Barchart.foreground navyblue
option add *Barchart.Geometry 500x500
option add *Barchart.font *new*century*14* 
option add *Barchart.YStepSize 50.0
option add *Barchart.AxisThickness 2
option add *Barchart.xRotation 0
option add *Hypertext.Geometry 500x120
option add *Hypertext.Font *Helvetica*Bold*R*14*

frame .top
htext .top.msg -text {
This is a simple bar chart. It displays one-variable data with optionally
a legend.  The Y axis may scaled either logarithmically or linearly. 
If you press %%
button $this.print -text {print} -command {.top.bar postscript bar.ps} 
$this append $this.print
%% a postscript file "bar.ps" will be created.

Hit the %%
button $this.quit -text {Quit} -command {exit} 
$this append $this.quit
%% button when you've seen enough.
}

barchart .top.bar -title "A Bar Chart" -xlabel "X Axis Label" \
	-ylabel "Y Axis Label" \

set colors { red green blue purple orange brown cyan black pink magenta }
for { set i 1 } { $i < 10 } { incr i } {
  .top.bar insert $i -y $i -fg [lindex $colors $i] -label $i
}

pack append .top .top.bar {top fill} .top.msg { padx 10 top } 
pack append . .top {}





