Posted to tcl by kbk at Wed Mar 25 16:46:37 GMT 2015view pretty

proc eventArrives {stuff} {
    variable queue
    lappend queue $stuff
    windClock
}
proc windClock {} {
    variable queueTimer
    if {![info exists queueTimer]} {