diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2009-08-24 21:19:35 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2009-08-24 21:19:35 (GMT) |
| commit | eb9a027bc5b4efb40f9f7cfe88981cb2586f9873 (patch) | |
| tree | 8b174d95f37b583ff081eb6d28890725851dec1c /library/msgbox.tcl | |
| parent | 6596c3e7f9850911ed0d86550d3acad4197ba2af (diff) | |
| download | tk-eb9a027bc5b4efb40f9f7cfe88981cb2586f9873.zip tk-eb9a027bc5b4efb40f9f7cfe88981cb2586f9873.tar.gz tk-eb9a027bc5b4efb40f9f7cfe88981cb2586f9873.tar.bz2 | |
Correct bindings for [tk_messageBox].
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index c5aa0a4..1da4607 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -3,7 +3,7 @@ # Implements messageboxes for platforms that do not have native # messagebox support. # -# RCS: @(#) $Id: msgbox.tcl,v 1.36.2.1 2009/04/10 16:45:46 das Exp $ +# RCS: @(#) $Id: msgbox.tcl,v 1.36.2.2 2009/08/24 21:19:35 dkf Exp $ # # Copyright (c) 1994-1997 Sun Microsystems, Inc. # @@ -396,12 +396,12 @@ proc ::tk::MessageBox {args} { if {$data(-default) ne ""} { bind $w <FocusIn> { - if {[winfo class %W] eq "Button"} { + if {[winfo class %W] in "Button TButton"} { %W configure -default active } } bind $w <FocusOut> { - if {[winfo class %W] eq "Button"} { + if {[winfo class %W] in "Button TButton"} { %W configure -default normal } } @@ -410,7 +410,7 @@ proc ::tk::MessageBox {args} { # 6. Create bindings for <Return>, <Escape> and <Destroy> on the dialog bind $w <Return> { - if {[winfo class %W] eq "Button"} { + if {[winfo class %W] in "Button TButton"} { %W invoke } } |