diff options
author | dgp@users.sourceforge.net <dgp> | 2016-01-23 21:09:17 (GMT) |
---|---|---|
committer | dgp@users.sourceforge.net <dgp> | 2016-01-23 21:09:17 (GMT) |
commit | 18050a06dc33c90cdee34b6948020dff024b15b1 (patch) | |
tree | 23038658da225431345cd584e9449094f7083e35 | |
parent | 7ece67f684c041193902f78d9036e0dba34a14a7 (diff) | |
parent | aff4df742af732a0b6bc3ca70e6ba0030fe43641 (diff) | |
download | tk-18050a06dc33c90cdee34b6948020dff024b15b1.zip tk-18050a06dc33c90cdee34b6948020dff024b15b1.tar.gz tk-18050a06dc33c90cdee34b6948020dff024b15b1.tar.bz2 |
merge 8.5
-rw-r--r-- | macosx/tkMacOSXDialog.c | 7 | ||||
-rw-r--r-- | tests/font.test | 1 |
2 files changed, 6 insertions, 2 deletions
diff --git a/macosx/tkMacOSXDialog.c b/macosx/tkMacOSXDialog.c index 67f17be..0f7ef3a 100644 --- a/macosx/tkMacOSXDialog.c +++ b/macosx/tkMacOSXDialog.c @@ -395,10 +395,12 @@ Tk_GetOpenFileObjCmd( NSMutableArray *fileTypes = nil; NSOpenPanel *panel = [NSOpenPanel openPanel]; NSInteger modalReturnCode = modalError; +#if MAC_OS_X_VERSION_MIN_REQUIRED < 1060 + BOOL parentIsKey = NO; +#endif TkInitFileFilters(&fl); for (i = 1; i < objc; i += 2) { - BOOL parentIsKey = NO; if (Tcl_GetIndexFromObjStruct(interp, objv[i], openOptionStrings, sizeof(char *), "option", TCL_EXACT, &index) != TCL_OK) { goto end; @@ -598,10 +600,11 @@ Tk_GetSaveFileObjCmd( NSMutableArray *fileTypes = nil; NSSavePanel *panel = [NSSavePanel savePanel]; NSInteger modalReturnCode = modalError; + BOOL parentIsKey = NO; TkInitFileFilters(&fl); for (i = 1; i < objc; i += 2) { - BOOL parentIsKey = NO; + parentIsKey = NO; if (Tcl_GetIndexFromObjStruct(interp, objv[i], saveOptionStrings, sizeof(char *), "option", TCL_EXACT, &index) != TCL_OK) { goto end; diff --git a/tests/font.test b/tests/font.test index 9ed24dc..2defb29 100644 --- a/tests/font.test +++ b/tests/font.test @@ -1162,6 +1162,7 @@ test font-33.1 {Tk_TextWidth procedure} { test font-34.1 {ConfigAttributesObj procedure: arguments} { # (Tcl_GetIndexFromObj() != TCL_OK) + set x {} setup list [catch {font create xyz -xyz} msg] $msg } {1 {bad option "-xyz": must be -family, -size, -weight, -slant, -underline, or -overstrike}} |