diff options
author | treectrl <treectrl> | 2006-07-12 20:51:24 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-07-12 20:51:24 (GMT) |
commit | c223fba263aa60fd6b10d4df30edb66cf594fb5d (patch) | |
tree | 5ce8ec0bca648daa3fc822df2242b4472c83726b | |
parent | 95d4b0c5d2d49d3a680205412ad16b3d1c4ecc61 (diff) | |
download | tktreectrl-c223fba263aa60fd6b10d4df30edb66cf594fb5d.zip tktreectrl-c223fba263aa60fd6b10d4df30edb66cf594fb5d.tar.gz tktreectrl-c223fba263aa60fd6b10d4df30edb66cf594fb5d.tar.bz2 |
Fix undefined variable. [ Patch 1507123 ]
-rw-r--r-- | library/treectrl.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/treectrl.tcl b/library/treectrl.tcl index 47ae35a..7430e0d 100644 --- a/library/treectrl.tcl +++ b/library/treectrl.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: treectrl.tcl,v 1.22 2006/07/11 22:10:58 treectrl Exp $ +# RCS: @(#) $Id: treectrl.tcl,v 1.23 2006/07/12 20:51:24 treectrl Exp $ bind TreeCtrl <Motion> { TreeCtrl::CursorCheck %W %x %y @@ -676,6 +676,8 @@ proc ::TreeCtrl::SelectionMotion {w el} { set i $el lappend select $el set hack [$w item compare $el == anchor] + } else { + set hack 0 } if {[$w selection includes anchor] || $hack} { set deselect [concat $deselect [$w range $i $el]] |