Posted to tcl by saedelaere at Sun Dec 06 18:10:15 GMT 2009view raw

  1. proc tv_playerInfoVars {} {
  2. foreach var [info globals] {
  3. if {[array exists ::$var]} continue
  4. puts "
  5. $var: [set ::$var]
  6. "
  7. }
  8. }