Posted to tcl by kbk at Mon Jun 01 19:36:44 GMT 2015view pretty
dict set ::Module::playerStatus $pid pid $pid
dict set ::Module::playerStatus $pid volume_level $volume_level
dict set ::Module::playerStatus $pid mute $mute
if {[dict exists $::Module::playerStatus $pid idle]} {return}
set idle [after idle [list ::SendVolume -pid $pid -slider 1]]
dict set ::Module::playerStatus $pid idle $idle