diff options
Diffstat (limited to 'library/focus.tcl')
| -rw-r--r-- | library/focus.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/focus.tcl b/library/focus.tcl index bf0476d..0847e4c 100644 --- a/library/focus.tcl +++ b/library/focus.tcl @@ -3,7 +3,7 @@ # This file defines several procedures for managing the input # focus. # -# SCCS: @(#) focus.tcl 1.17 96/02/16 10:48:21 +# SCCS: @(#) focus.tcl 1.18 97/12/03 15:28:58 # # Copyright (c) 1994-1995 Sun Microsystems, Inc. # @@ -167,9 +167,9 @@ proc tk_focusFollowsMouse {} { set script { if {("%d" == "NotifyAncestor") || ("%d" == "NotifyNonlinear") || ("%d" == "NotifyInferior")} { - if [tkFocusOK %W] { - focus %W - } + if {[tkFocusOK %W]} { + focus %W + } } } if {$old != ""} { |