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