git.zerfleddert.de Git - micropolis/blame_incremental - src/tk/library/demos/timer

#!/usr/local/bin/wish -f
#
# This script generates a counter with start and stop buttons.

label .counter -text 0.00 -relief raised -width 10
button .start -text Start -command "set stop 0; tick"
button .stop -text Stop -command {set stop 1}
pack append . .counter {bot fill} .start {left expand fill} \
	.stop {right expand fill}

set seconds 0
set hundredths 0
set stop 0

proc tick {} {
    global seconds hundredths stop
    if $stop return
    after 20 tick
    set hundredths [expr $hundredths+2]
    if {$hundredths >= 100} {
	set hundredths 0
	set seconds [expr $seconds+1]
    }
    .counter config -text [format "%d.%2d" $seconds $hundredths]
}

bind . <Control-c> {destroy .}
bind . <Control-q> {destroy .}
focus .
Commit	Line	Data
	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 .