diff options
Diffstat (limited to 'library/treectrl.tcl')
-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]] |