Posted to tcl by mjanssen at Thu Apr 26 21:05:48 GMT 2007view pretty

package require sqlite3
sqlite3 db ivote.db 
proc test {} {
    after 1000 {set ::a 1}
    db eval {SELECT * FROM Choice} { 
        voteControl
        vwait ::a
    }
}

proc voteControl {} {
    db eval {UPDATE Choice SET for_talley = for_talley + 1}}
    test
}

after 5000 exit
test