1# demo-tachometer.tcl -- 2 3package require controlwidget 4 5# main -- 6# Demonstration of the tachometer object 7# 8proc main { argc argv } \ 9{ 10 global forever 11 12 wm withdraw . 13 wm title . "A tachometer-like widget" 14 wm geometry . +10+10 15 16 controlwidget::tachometer .t1 -variable ::value1 -labels { 0 10 20 30 40 50 60 70 80 90 100 } \ 17 -pincolor green -dialcolor lightpink 18 scale .s1 -command "set ::value1" -variable ::value1 19 20 # 21 # Note: the labels are not used in the scaling of the values 22 # 23 controlwidget::tachometer .t2 -variable ::value2 -labels { 0 {} {} 5 {} {} 10 } -width 100m -height 100m \ 24 -min 0 -max 10 -dangerlevel 3 25 scale .s2 -command "set ::value2" -variable ::value2 -from 0 -to 10 26 27 button .b -text Quit -command "set ::forever 1" 28 29 grid .t1 .s1 .t2 .s2 .b -padx 2 -pady 2 30 wm deiconify . 31 32 console show 33 34 35 vwait forever 36 #tachometer::destructor .t1 37 #tachometer::destructor .t2 38 exit 0 39} 40 41main $argc $argv 42