From 9e115e8e9969916fbac1c83d9db2b2b773927f30 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 2 Mar 2000 23:52:45 +0000
Subject: 	* library/focus.tcl: fixed tkFocusOK to protect $w in 
 uplevel with list. [Bug: 4208]

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

diff --git a/library/focus.tcl b/library/focus.tcl
index b455242..d1cf4a6 100644
--- a/library/focus.tcl
+++ b/library/focus.tcl
@@ -3,7 +3,7 @@
 # This file defines several procedures for managing the input
 # focus.
 #
-# RCS: @(#) $Id: focus.tcl,v 1.5 1999/09/02 17:02:52 hobbs Exp $
+# RCS: @(#) $Id: focus.tcl,v 1.6 2000/03/02 23:52:45 hobbs Exp $
 #
 # Copyright (c) 1994-1995 Sun Microsystems, Inc.
 #
@@ -136,7 +136,7 @@ proc tkFocusOK w {
 	} elseif {$value == 1} {
 	    return [winfo viewable $w]
 	} else {
-	    set value [uplevel #0 $value $w]
+	    set value [uplevel #0 [list $value $w]]
 	    if {[string compare $value ""]} {
 		return $value
 	    }
-- 
cgit v0.12