From 33172e259f5b60a5a62dec41eb5515fe735cc410 Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Fri, 25 Apr 2008 19:08:31 +0000
Subject: BUGFIX: [$tv selection] takes a list of items, not a single item [Bug
 1951733].

---
 ChangeLog                | 5 +++++
 library/ttk/treeview.tcl | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 920f88b..2a6f4c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-25  Joe English  <jenglish@users.sourceforge.net>
+
+	* library/ttk/treeview.tcl: BUGFIX: [$tv selection] takes
+	a list of items, not a single item [Bug 1951733].
+
 2008-04-20  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
 	* win/makefile.vc: Include ws2_32 in the link list [Bug 1900872]
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl
index 473e21b..d2a1015 100644
--- a/library/ttk/treeview.tcl
+++ b/library/ttk/treeview.tcl
@@ -1,4 +1,4 @@
-# $Id: treeview.tcl,v 1.4 2008/01/30 05:33:19 jenglish Exp $
+# $Id: treeview.tcl,v 1.5 2008/04/25 19:08:32 jenglish Exp $
 #
 # ttk::treeview widget bindings and utilities.
 #
@@ -280,7 +280,7 @@ proc ttk::treeview::select.choose.extended {w item} {
     BrowseTo $w $item
 }
 proc ttk::treeview::select.toggle.extended {w item} {
-    $w selection toggle $item
+    $w selection toggle [list $item]
 }
 proc ttk::treeview::select.extend.extended {w item} {
     if {[set anchor [$w focus]] ne ""} {
-- 
cgit v0.12