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