diff options
| author | stanton <stanton> | 1998-09-29 00:25:03 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-09-29 00:25:03 (GMT) |
| commit | c16d45ef706cbb616125e57ec8a1f809bae3c9df (patch) | |
| tree | 99c199f65b7d32755dc8f0ee5cc773bd922a74a6 /library/focus.tcl | |
| parent | d3b37a36ad09da1989ef6c53fd6fddc71deb2d72 (diff) | |
| download | tk-c16d45ef706cbb616125e57ec8a1f809bae3c9df.zip tk-c16d45ef706cbb616125e57ec8a1f809bae3c9df.tar.gz tk-c16d45ef706cbb616125e57ec8a1f809bae3c9df.tar.bz2 | |
initial tk8.1a2 version
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 != ""} { |