]> cvs.zerfleddert.de Git - micropolis/blob - src/tk/library/demos/timer
Import Micropolis from http://www.donhopkins.com/home/micropolis/
[micropolis] / src / tk / library / demos / timer
1 #!/usr/local/bin/wish -f
2 #
3 # This script generates a counter with start and stop buttons.
4
5 label .counter -text 0.00 -relief raised -width 10
6 button .start -text Start -command "set stop 0; tick"
7 button .stop -text Stop -command {set stop 1}
8 pack append . .counter {bot fill} .start {left expand fill} \
9 .stop {right expand fill}
10
11 set seconds 0
12 set hundredths 0
13 set stop 0
14
15 proc tick {} {
16 global seconds hundredths stop
17 if $stop return
18 after 20 tick
19 set hundredths [expr $hundredths+2]
20 if {$hundredths >= 100} {
21 set hundredths 0
22 set seconds [expr $seconds+1]
23 }
24 .counter config -text [format "%d.%2d" $seconds $hundredths]
25 }
26
27 bind . <Control-c> {destroy .}
28 bind . <Control-q> {destroy .}
29 focus .
Impressum, Datenschutz