Posted to tcl by kbk at Mon Jun 01 19:36:44 GMT 2015view raw

  1. dict set ::Module::playerStatus $pid pid $pid
  2. dict set ::Module::playerStatus $pid volume_level $volume_level
  3. dict set ::Module::playerStatus $pid mute $mute
  4. if {[dict exists $::Module::playerStatus $pid idle]} {return}
  5. set idle [after idle [list ::SendVolume -pid $pid -slider 1]]
  6. dict set ::Module::playerStatus $pid idle $idle