summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--library/ttk/treeview.tcl4
2 files changed, 7 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 6bdafaf..e2b3eca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-29 Joe English <jenglish@users.sourceforge.net>
+
+ * library/treeview.tcl: Fix bug in Shift-ButtonPress-1 binding
+ (error if no current focus item; reported on c.l.t.)
+
2008-01-29 Donal K. Fellows <donal.k.fellows@man.ac.uk>
* doc/ttk_*.n: Adjusted handling of the standard options part of the
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
}
}