diff options
| author | hobbs <hobbs> | 2000-04-08 06:59:28 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-04-08 06:59:28 (GMT) |
| commit | 64f72adf2f30daf0b524c3f2fae31821902281a1 (patch) | |
| tree | b66b4a994059e6ce1c4115f7f1e5afde35e24f2b /library/comdlg.tcl | |
| parent | 477cd1d5477c6487a7fde0d13710449e23b7d8e5 (diff) | |
| download | tk-64f72adf2f30daf0b524c3f2fae31821902281a1.zip tk-64f72adf2f30daf0b524c3f2fae31821902281a1.tar.gz tk-64f72adf2f30daf0b524c3f2fae31821902281a1.tar.bz2 | |
* library/safetk.tcl (disallowTk): made disallowTk work in the
simple case.
* library/comdlg.tcl (tkFocusGroup_In): fixed key navigation
problems in dialogs under CDE [Bug: 2960]
Diffstat (limited to 'library/comdlg.tcl')
| -rw-r--r-- | library/comdlg.tcl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/library/comdlg.tcl b/library/comdlg.tcl index 972a538..1ba0769 100644 --- a/library/comdlg.tcl +++ b/library/comdlg.tcl @@ -3,7 +3,7 @@ # Some functions needed for the common dialog boxes. Probably need to go # in a different file. # -# RCS: @(#) $Id: comdlg.tcl,v 1.6 1999/12/07 03:04:43 hobbs Exp $ +# RCS: @(#) $Id: comdlg.tcl,v 1.7 2000/04/08 06:59:28 hobbs Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # @@ -201,6 +201,12 @@ proc tkFocusGroup_Destroy {t w} { proc tkFocusGroup_In {t w detail} { global tkPriv tkFocusIn + if {[string compare $detail NotifyNonlinear] && \ + [string compare $detail NotifyNonlinearVirtual]} { + # This is caused by mouse moving out&in of the window *or* + # ordinary keypresses some window managers (ie: CDE [Bug: 2960]). + return + } if {![info exists tkFocusIn($t,$w)]} { set tkFocusIn($t,$w) "" return @@ -228,8 +234,8 @@ proc tkFocusGroup_In {t w detail} { proc tkFocusGroup_Out {t w detail} { global tkPriv tkFocusOut - if {[string compare $detail NotifyNonlinear] && - [string compare $detail NotifyNonlinearVirtual]} { + if {[string compare $detail NotifyNonlinear] && \ + [string compare $detail NotifyNonlinearVirtual]} { # This is caused by mouse moving out of the window return } |