From 7a71bd2222de0c2f78de1c0c696fad270e0ad948 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 17 Nov 2004 22:16:44 +0000
Subject: 	* library/console.tcl (::tk::console::ExpandVariable): correct
 	array keyname expansion. [Bug 1004508] (bold)

---
 library/console.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/console.tcl b/library/console.tcl
index 115830a..1d0ff03 100644
--- a/library/console.tcl
+++ b/library/console.tcl
@@ -4,7 +4,7 @@
 # can be used by non-unix systems that do not have built-in support
 # for shells.
 #
-# RCS: @(#) $Id: console.tcl,v 1.25 2004/03/17 18:15:44 das Exp $
+# RCS: @(#) $Id: console.tcl,v 1.26 2004/11/17 22:16:44 hobbs Exp $
 #
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
 # Copyright (c) 1998-2000 Ajuba Solutions.
@@ -948,7 +948,7 @@ proc ::tk::console::ExpandVariable str {
 		lappend vars $ary\($var\)
 	    }
 	    return $vars
-	} else {
+	} elseif {[llength $match] == 1} {
 	    set match $ary\($match\)
 	}
 	## Space transformation avoided for array names.
-- 
cgit v0.12