summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-02-10 15:54:25 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-02-10 15:54:25 (GMT)
commitda13c5e294143c51bdee3d5d9f42c72b1843dc51 (patch)
tree831dac83c71f933f472362ac8526296f540174b3 /win
parentaf35ce6a64f4b7491095ba1201ec2cb8759b27b9 (diff)
parent751529e39515a7968bd597326de78c0f9f220f44 (diff)
downloadtk-da13c5e294143c51bdee3d5d9f42c72b1843dc51.zip
tk-da13c5e294143c51bdee3d5d9f42c72b1843dc51.tar.gz
tk-da13c5e294143c51bdee3d5d9f42c72b1843dc51.tar.bz2
* win/tkWinDialog.c (GetFileName): Ensure that we do not convert a
result list to a string inadvertently, as this causes problems with Tkinter's handling of multiple filename results. Issue was reported via StackOverflow: http://stackoverflow.com/q/9227859/301832
Diffstat (limited to 'win')
-rw-r--r--win/tkWinDialog.c13
1 files changed, 10 insertions, 3 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c
index f26905b..9a6f76b 100644
--- a/win/tkWinDialog.c
+++ b/win/tkWinDialog.c
@@ -818,6 +818,11 @@ GetFileName(
if ((winCode != 0)
|| ((cdlgerr == FNERR_BUFFERTOOSMALL)
&& (ofn.Flags & OFN_ALLOWMULTISELECT))) {
+ int gotFilename = 0; /* Flag for tracking whether we have any
+ * filename at all. For details, see
+ * http://stackoverflow.com/q/9227859/301832
+ */
+
if (ofn.Flags & OFN_ALLOWMULTISELECT) {
/*
* The result in dynFileBuffer contains many items, separated by
@@ -854,6 +859,7 @@ GetFileName(
Tcl_AppendToObj(fullnameObj, "/", -1);
Tcl_AppendToObj(fullnameObj, Tcl_DStringValue(&filenameBuf),
Tcl_DStringLength(&filenameBuf));
+ gotFilename = 1;
Tcl_DStringFree(&filenameBuf);
Tcl_ListObjAppendElement(NULL, returnList, fullnameObj);
}
@@ -867,18 +873,19 @@ GetFileName(
Tcl_ListObjAppendElement(NULL, returnList,
Tcl_NewStringObj(Tcl_DStringValue(&ds),
Tcl_DStringLength(&ds)));
+ gotFilename |= (Tcl_DStringLength(&ds) > 0);
}
Tcl_SetObjResult(interp, returnList);
Tcl_DStringFree(&ds);
} else {
Tcl_AppendResult(interp, ConvertExternalFilename(unicodeEncoding,
(char *) ofn.lpstrFile, &ds), NULL);
+ gotFilename = (Tcl_DStringLength(&ds) > 0);
Tcl_DStringFree(&ds);
}
result = TCL_OK;
- if ((ofn.nFilterIndex > 0) &&
- Tcl_GetCharLength(Tcl_GetObjResult(interp)) > 0 &&
- typeVariableObj && filterObj) {
+ if ((ofn.nFilterIndex > 0) && gotFilename && typeVariableObj
+ && filterObj) {
int listObjc, count;
Tcl_Obj **listObjv = NULL;
Tcl_Obj **typeInfo = NULL;