diff options
Diffstat (limited to 'library/focus.tcl')
| -rw-r--r-- | library/focus.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/library/focus.tcl b/library/focus.tcl index 9be0e9a..640406e 100644 --- a/library/focus.tcl +++ b/library/focus.tcl @@ -36,7 +36,7 @@ proc ::tk_focusNext w { incr i if {$i < [llength $children]} { set cur [lindex $children $i] - if {[winfo toplevel $cur] eq $cur} { + if {[winfo toplevel $cur] eq $cur} { continue } else { break @@ -163,8 +163,7 @@ proc ::tk::FocusOK w { proc ::tk_focusFollowsMouse {} { set old [bind all <Enter>] set script { - if {"%d" eq "NotifyAncestor" \ - || "%d" eq "NotifyNonlinear" \ + if {"%d" eq "NotifyAncestor" || "%d" eq "NotifyNonlinear" \ || "%d" eq "NotifyInferior"} { if {[tk::FocusOK %W]} { focus %W |