From accdaeff0eff6736a1312d765c38b01642d50f39 Mon Sep 17 00:00:00 2001
From: "jenglish@flightlab.com" <jenglish>
Date: Wed, 30 Jan 2008 05:33:18 +0000
Subject: library/treeview.tcl: Fix bug in Shift-ButtonPress-1 binding (error
 if no current focus item; reported on c.l.t.)

---
 ChangeLog                | 5 +++++
 library/ttk/treeview.tcl | 4 ++--
 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
     }
 }
 
-- 
cgit v0.12