Return to timer CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library / demos

Annotation of micropolis/src/tk/library/demos/timer, revision 1.1

1.1     ! root        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 .

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.