Posted to tcl by saedelaere at Thu Jul 29 21:45:30 GMT 2010view raw

  1. proc disTree {tree com} {
  2. if {$com} {
  3. bind .tree <ButtonPress-1> break
  4. .tree tag configure disabled -foreground #A0A0A0
  5. if {[array exists ::kanalitemID]} {
  6. foreach {key elem} [array get ::kanalitemID] {
  7. .tree item $elem -tag disabled
  8. }
  9. }
  10. } else {
  11. bind .tree <ButtonPress-1> {event generate .tree <<Treeview>>}
  12. .tree tag configure disabled -foreground {}
  13. if {[array exists ::kanalitemID]} {
  14. foreach {key elem} [array get ::kanalitemID] {
  15. .tree item $elem -tag disabled
  16. }
  17. }
  18. }
  19. }