Posted to tcl by kbk at Mon Jun 01 19:36:44 GMT 2015view raw
- 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