Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * scripts/tablelistBind.tcl: Made the "handleMotion" proc more robust. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c283dff14f6ef3abbf90d4dab6946d59 |
| User & Date: | csaba 2015-01-10 18:49:40 |
Context
|
2015-01-17
| ||
| 22:29 | * scripts/tablelistBind.tcl: Minor improvement. check-in: 200ff1f714 user: csaba tags: trunk | |
|
2015-01-10
| ||
| 18:49 | * scripts/tablelistBind.tcl: Made the "handleMotion" proc more robust. check-in: c283dff14f user: csaba tags: trunk | |
| 18:49 | * scripts/tablelistBind.tcl: Made the "handleMotion" proc more robust. check-in: 79bc7d57e3 user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistBind.tcl.
| ︙ | ︙ | |||
726 727 728 729 730 731 732 |
set data(justEntered) 1
}
}
#------------------------------------------------------------------------------
# tablelist::handleMotion
#
| | | > > > > > | 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 |
set data(justEntered) 1
}
}
#------------------------------------------------------------------------------
# tablelist::handleMotion
#
# Invokes the procedures showOrHideTooltip, updateExpCollCtrl, and updateCursor.
#------------------------------------------------------------------------------
proc tablelist::handleMotion win {
upvar ::tablelist::ns${win}::data data
if {[info exists data(motionId)]} {
after cancel $data(motionId)
unset data(motionId)
}
set data(justEntered) 0
foreach {w x y X Y event} $data(motionData) {}
if {![winfo exists $w]} {
invokeMotionHandler $win
return ""
}
#
# Get the containing cell from the coordinates relative to the tablelist
#
foreach {win _x _y} [convEventFields $w $x $y] {}
set row [containingRow $win $_y]
set col [containingCol $win $_x]
showOrHideTooltip $win $row $col $X $Y
updateExpCollCtrl $win $w $row $col $x
#
# Make sure updateCursor won't change the cursor of an embedded window
#
if {[string match "$data(body).frm_k*" $w] &&
[string compare [winfo parent $w] $data(body)] == 0 &&
[string compare $event "<Leave>"] != 0} {
set row -1
set col -1
}
updateCursor $win $row $col
}
#------------------------------------------------------------------------------
# tablelist::showOrHideTooltip
#
# If the pointer has crossed a cell boundary then the procedure removes the old
|
| ︙ | ︙ |