Posted to tcl by saedelaere at Mon Jul 26 14:10:58 GMT 2010view raw

  1. bind $tree <<TreeviewSelect>> {}
  2. $tree selection set $::kanalitemID([lindex $::station($lasts) 2])
  3. $tree see [$tree selection]
  4. bind $tree <<TreeviewSelect>> [list chan_zapperTree $tree]