diff options
| author | das <das@noemail.net> | 2006-12-01 07:13:12 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2006-12-01 07:13:12 (GMT) |
| commit | d1438382c5d3e25237af27e3fcabf344eb35611d (patch) | |
| tree | 145291c85ee7362870f5eee3e424d36b76b0865d /macosx/tkMacOSXDialog.c | |
| parent | d8d6ded4b8f9d0c84fa03477b113eac8aba019fb (diff) | |
| download | tk-d1438382c5d3e25237af27e3fcabf344eb35611d.zip tk-d1438382c5d3e25237af27e3fcabf344eb35611d.tar.gz tk-d1438382c5d3e25237af27e3fcabf344eb35611d.tar.bz2 | |
* 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).
FossilOrigin-Name: 1ecb3412c5b524b884d30517d8a23c6521ef06ee
Diffstat (limited to 'macosx/tkMacOSXDialog.c')
| -rw-r--r-- | macosx/tkMacOSXDialog.c | 5 |
1 files changed, 4 insertions, 1 deletions
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); |