diff options
| author | treectrl <treectrl> | 2006-12-07 03:47:01 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-12-07 03:47:01 (GMT) |
| commit | 68604c0aecb5a887195029f64f4b919374c25af6 (patch) | |
| tree | d92b66878c9aab3b7541ee60c96a915907e26c06 /library | |
| parent | bd84d0f2f68095231716a07a5670ff4f9ae10910 (diff) | |
| download | tktreectrl-68604c0aecb5a887195029f64f4b919374c25af6.zip tktreectrl-68604c0aecb5a887195029f64f4b919374c25af6.tar.gz tktreectrl-68604c0aecb5a887195029f64f4b919374c25af6.tar.bz2 | |
Replace usage of the deprecated [range] command.
Diffstat (limited to 'library')
| -rw-r--r-- | library/treectrl.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/library/treectrl.tcl b/library/treectrl.tcl index 4ff06a4..e2e2dee 100644 --- a/library/treectrl.tcl +++ b/library/treectrl.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: treectrl.tcl,v 1.38 2006/12/04 00:22:29 treectrl Exp $ +# RCS: @(#) $Id: treectrl.tcl,v 1.39 2006/12/07 03:47:01 treectrl Exp $ bind TreeCtrl <Motion> { TreeCtrl::CursorCheck %W %x %y @@ -886,11 +886,11 @@ proc ::TreeCtrl::SelectionMotion {w item} { set hack 0 } if {[$w selection includes anchor] || $hack} { - set deselect [concat $deselect [$w range $i $item]] - set select [concat $select [$w range anchor $item]] + set deselect [concat $deselect [$w item range $i $item]] + set select [concat $select [$w item range anchor $item]] } else { - set deselect [concat $deselect [$w range $i $item]] - set deselect [concat $deselect [$w range anchor $item]] + set deselect [concat $deselect [$w item range $i $item]] + set deselect [concat $deselect [$w item range anchor $item]] } if {![info exists Priv(selection)]} { set Priv(selection) [$w selection get] |