Posted to tcl by MegaHurtz at Thu Jan 10 03:01:26 GMT 2019view raw

  1. if {1} { ;# this binding is broken and needs to be fixed.
  2. bind [$tbl bodytag] <KeyRelease> { ;# ### this is broke ... supposed to trigger with a selection change in the UI
  3. set dataHeaderIndicies {}
  4. foreach {tablelist::W tablelist::x tablelist::y} [tablelist::convEventFields %W %x %y] {}
  5.  
  6. set selXY [$tbl containingcell $tablelist::x $tablelist::y]
  7. set tfield 0
  8.  
  9. foreach test_Fld [split $selXY ","] {
  10. incr tfield 1
  11. set var_x $test_Fld
  12. if { $tfield == "2" } {
  13. set var_y $last_test_Fld
  14. }
  15. set last_test_Fld $test_Fld
  16. }
  17. set selSym [$tbl get $var_y]
  18. set test_str [lindex $selSym 3]
  19.  
  20. $tblt delete 1.0 end
  21.  
  22. if { $test_str != ""} {
  23. explUIresp $selSym
  24. }
  25. }
  26. }
  27.