1# demo-voltmeter.tcl --
2
3package require controlwidget
4
5# main --
6#     Demonstration of the voltmeter object
7#
8proc main { argc argv } {
9    global     forever
10
11    wm withdraw .
12    wm title    . "A voltmeter-like widget"
13    wm geometry . +10+10
14
15    ::controlwidget::voltmeter .t1 -variable value1 -labels { 0 50 100 } -title "Voltmeter (V)"
16    scale .s1 -command "set ::value1" -variable value1
17
18    ::controlwidget::voltmeter .t2 -variable value2 -labels { 0 {} 2.5 {} 5 } \
19       -width 80m -height 40m -title "Ampere (mA)" -dialcolor lightgreen -scalecolor white \
20       -min 0 -max 5
21    scale .s2 -command "set ::value2" -variable value2
22
23    button .b -text Quit -command "set ::forever 1"
24
25    grid .t1 .s1 .t2 .s2 .b
26    wm deiconify .
27    vwait forever
28    .t1 destructor
29    .t2 destructor
30    exit 0
31}
32
33main $argc $argv
34