The Personal Web Pages of Chris X. Edwards

A Simplified Tk Reference

scale

#note- The simplest example of a scale
scale .s; pack .s;

  

 
#note- This example produces a slider bar which is ideal for setting
#note- a greyscale level. When it is adjusted the slider is set to the 
#note- grey value.
proc greyit { valnow } {
set t [expr int($valnow*2.55)]
set t [format "%02X" $t]
.shade configure -bg "#$t$t$t"
}
scale .shade -fg red -bg black -orient horiz -command greyit;
.shade set 50; pack .shade;