diff options
| author | hobbs <hobbs> | 2000-03-02 23:52:45 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-03-02 23:52:45 (GMT) |
| commit | 9e115e8e9969916fbac1c83d9db2b2b773927f30 (patch) | |
| tree | 0ab4eab3d0da22205b86c4fdc08bda80c0f33ebe /library/focus.tcl | |
| parent | 2e992346d67c6e23c86d6d3808a0895116140fea (diff) | |
| download | tk-9e115e8e9969916fbac1c83d9db2b2b773927f30.zip tk-9e115e8e9969916fbac1c83d9db2b2b773927f30.tar.gz tk-9e115e8e9969916fbac1c83d9db2b2b773927f30.tar.bz2 | |
* library/focus.tcl: fixed tkFocusOK to protect $w in
uplevel with list. [Bug: 4208]
Diffstat (limited to 'library/focus.tcl')
| -rw-r--r-- | library/focus.tcl | 4 |
1 files 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 } |