summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-08-24 21:19:35 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-08-24 21:19:35 (GMT)
commite9044ae71084142ae100561370c6c291dd279a4c (patch)
tree8b174d95f37b583ff081eb6d28890725851dec1c /library
parentc6982eec5c9bbec87d4addf34971a2c9bc1c2883 (diff)
downloadtk-e9044ae71084142ae100561370c6c291dd279a4c.zip
tk-e9044ae71084142ae100561370c6c291dd279a4c.tar.gz
tk-e9044ae71084142ae100561370c6c291dd279a4c.tar.bz2
Correct bindings for [tk_messageBox].
Diffstat (limited to 'library')
-rw-r--r--library/msgbox.tcl8
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
}
}