summaryrefslogtreecommitdiffstats
path: root/library/msgbox.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-08-24 21:22:46 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-08-24 21:22:46 (GMT)
commitbe443037d96546bb6095977a5c5a81c5ccf681e2 (patch)
tree6192149b82a1a06f7ead59bab4fec015cfa848d1 /library/msgbox.tcl
parentebf849fe623fc8d267fcaa651e83b3061acea2e0 (diff)
downloadtk-be443037d96546bb6095977a5c5a81c5ccf681e2.zip
tk-be443037d96546bb6095977a5c5a81c5ccf681e2.tar.gz
tk-be443037d96546bb6095977a5c5a81c5ccf681e2.tar.bz2
Correct bindings for [tk_messageBox].
Diffstat (limited to 'library/msgbox.tcl')
-rw-r--r--library/msgbox.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index a518308..41e3960 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.38 2009/01/11 11:51:39 patthoyts Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.39 2009/08/24 21:22:46 dkf Exp $
#
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
#
@@ -368,12 +368,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
}
}
@@ -382,7 +382,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
}
}