From 9fec29d0295f77de0f3f5a4068c6dca990d9bdbc Mon Sep 17 00:00:00 2001 From: das Date: Fri, 1 Dec 2006 07:13:13 +0000 Subject: * macosx/tkMacOSXDialog.c (Tk_MessageBoxObjCmd): fix inability to use buttons with standard Escape key binding as -default button (reported on tcl-mac by Hans-Christoph Steiner). --- ChangeLog | 6 ++++++ macosx/tkMacOSXDialog.c | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0e8f7e8..57f3003 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-11-30 Daniel Steffen + + * macosx/tkMacOSXDialog.c (Tk_MessageBoxObjCmd): fix inability to use + buttons with standard Escape key binding as -default button (reported + on tcl-mac by Hans-Christoph Steiner). + 2006-11-26 Daniel Steffen * tcl.m4 (Linux): --enable-64bit support. [Patch 1597389], [Bug 1230558] diff --git a/macosx/tkMacOSXDialog.c b/macosx/tkMacOSXDialog.c index 51d62b9..350f1fe 100644 --- a/macosx/tkMacOSXDialog.c +++ b/macosx/tkMacOSXDialog.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.4.2.11 2006/04/11 12:05:18 das Exp $ + * RCS: @(#) $Id: tkMacOSXDialog.c,v 1.4.2.12 2006/12/01 07:13:14 das Exp $ */ #include "tkMacOSXInt.h" @@ -1537,6 +1537,9 @@ Tk_MessageBoxObjCmd( goto end; } paramCFStringRec.defaultButton = defaultNativeButtonIndex; + if (paramCFStringRec.cancelButton == defaultNativeButtonIndex) { + paramCFStringRec.cancelButton = 0; + } } SetThemeCursor(kThemeArrowCursor); -- cgit v0.12