Posted to tcl by mjanssen at Thu Apr 26 21:05:48 GMT 2007view raw
- 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