diff options
| author | jenglish <jenglish@flightlab.com> | 2008-01-30 05:33:18 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2008-01-30 05:33:18 (GMT) |
| commit | 9bfd6574e46386e769a7b467e3961a6e92aa76d7 (patch) | |
| tree | a2d8e9c3052aeb6c17e9125c77ad89ab7cd84567 /library/ttk/treeview.tcl | |
| parent | e570b803ecdb9cfc2838a851f6985608f2cc01e4 (diff) | |
| download | tk-9bfd6574e46386e769a7b467e3961a6e92aa76d7.zip tk-9bfd6574e46386e769a7b467e3961a6e92aa76d7.tar.gz tk-9bfd6574e46386e769a7b467e3961a6e92aa76d7.tar.bz2 | |
library/treeview.tcl: Fix bug in Shift-ButtonPress-1 binding
(error if no current focus item; reported on c.l.t.)
Diffstat (limited to 'library/ttk/treeview.tcl')
| -rw-r--r-- | library/ttk/treeview.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl index a5ebcb2..473e21b 100644 --- a/library/ttk/treeview.tcl +++ b/library/ttk/treeview.tcl @@ -1,4 +1,4 @@ -# $Id: treeview.tcl,v 1.3 2008/01/06 19:16:12 jenglish Exp $ +# $Id: treeview.tcl,v 1.4 2008/01/30 05:33:19 jenglish Exp $ # # ttk::treeview widget bindings and utilities. # @@ -286,7 +286,7 @@ proc ttk::treeview::select.extend.extended {w item} { if {[set anchor [$w focus]] ne ""} { $w selection set [between $w $anchor $item] } else { - BrowseTo $item + BrowseTo $w $item } } |