From e9044ae71084142ae100561370c6c291dd279a4c Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 24 Aug 2009 21:19:35 +0000 Subject: Correct bindings for [tk_messageBox]. --- ChangeLog | 9 +++++++-- library/msgbox.tcl | 8 ++++---- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index b8df108..bcd3594 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,8 +1,13 @@ +2009-08-24 Donal K. Fellows + + * library/msgbox.tcl (::tk::MessageBox): Correct bindings so that they + work with ttk::buttons. Reported by Hans-Christoph Steiner. + 2009-08-24 Daniel Steffen - * macosx/tkMacOSXHLEvents.c (ScriptHandler): fix "do script" apple + * macosx/tkMacOSXHLEvents.c (ScriptHandler): Fix "do script" apple event handler issues on recent Mac OS X releases by using AE coercion - to 'utf8' for text data and to 'fsrf' for alias data. (reported by + to 'utf8' for text data and to 'fsrf' for alias data. (Reported by Youness Alaoui on tcl-mac) 2009-08-08 Donal K. Fellows 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 { - if {[winfo class %W] eq "Button"} { + if {[winfo class %W] in "Button TButton"} { %W configure -default active } } bind $w { - 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 , and on the dialog bind $w { - if {[winfo class %W] eq "Button"} { + if {[winfo class %W] in "Button TButton"} { %W invoke } } -- cgit v0.12