diff options
author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-04 12:54:57 (GMT) |
---|---|---|
committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-04 12:54:57 (GMT) |
commit | 32c3cfdfa141137313ec2a6a3d262befb9a73e5e (patch) | |
tree | ae5df2a3659908799f62bbe3cbae21db74cdc1e7 /win | |
parent | 82fb98f04e85f698106311b9f982271ebd40bc46 (diff) | |
download | tk-32c3cfdfa141137313ec2a6a3d262befb9a73e5e.zip tk-32c3cfdfa141137313ec2a6a3d262befb9a73e5e.tar.gz tk-32c3cfdfa141137313ec2a6a3d262befb9a73e5e.tar.bz2 |
[Bug 3540127]: Clean up the tables of options for the file dialogs so that
there's no longer any need to have mysterious increments.
Diffstat (limited to 'win')
-rw-r--r-- | win/tkWinDialog.c | 63 |
1 files changed, 31 insertions, 32 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index 06f5a99..dda86a1 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -564,28 +564,41 @@ GetFileNameW(clientData, interp, objc, objv, open) Tcl_Encoding unicodeEncoding = TkWinGetUnicodeEncoding(); ThreadSpecificData *tsdPtr = (ThreadSpecificData *) Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); - static CONST char *saveOptionStrings[] = { - "-defaultextension", "-filetypes", "-initialdir", "-initialfile", - "-parent", "-title", NULL - }; - static CONST char *openOptionStrings[] = { - "-defaultextension", "-filetypes", "-initialdir", "-initialfile", - "-multiple", "-parent", "-title", NULL - }; - CONST char **optionStrings; - enum options { FILE_DEFAULT, FILE_TYPES, FILE_INITDIR, FILE_INITFILE, FILE_MULTIPLE, FILE_PARENT, FILE_TITLE }; - - result = TCL_ERROR; - file[0] = '\0'; + struct Options { + CONST char *name; + enum options value; + }; + CONST struct Options *options; + static CONST struct Options saveOptions[] = { + {"-defaultextension", FILE_DEFAULT}, + {"-filetypes", FILE_TYPES}, + {"-initialdir", FILE_INITDIR}, + {"-initialfile", FILE_INITFILE}, + {"-parent", FILE_PARENT}, + {"-title", FILE_TITLE}, + {NULL, FILE_DEFAULT/*ignored*/ } + }; + static CONST struct Options openOptions[] = { + {"-defaultextension", FILE_DEFAULT}, + {"-filetypes", FILE_TYPES}, + {"-initialdir", FILE_INITDIR}, + {"-initialfile", FILE_INITFILE}, + {"-multiple", FILE_MULTIPLE}, + {"-parent", FILE_PARENT}, + {"-title", FILE_TITLE}, + {NULL, FILE_DEFAULT/*ignored*/ } + }; /* * Parse the arguments. */ + result = TCL_ERROR; + file[0] = '\0'; extension = NULL; filter = NULL; Tcl_DStringInit(&utfFilterString); @@ -594,9 +607,9 @@ GetFileNameW(clientData, interp, objc, objv, open) title = NULL; if (open) { - optionStrings = openOptionStrings; + options = openOptions; } else { - optionStrings = saveOptionStrings; + options = saveOptions; } for (i = 1; i < objc; i += 2) { @@ -607,24 +620,10 @@ GetFileNameW(clientData, interp, objc, objv, open) optionPtr = objv[i]; valuePtr = objv[i + 1]; - if (Tcl_GetIndexFromObj(interp, optionPtr, optionStrings, - "option", 0, &index) != TCL_OK) { + if (Tcl_GetIndexFromObjStruct(interp, optionPtr, options, + sizeof(struct Option), "option", 0, &index) != TCL_OK) { goto end; } - /* - * We want to maximize code sharing between the open and save file - * dialog implementations; in particular, the switch statement below. - * We use different sets of option strings from the GetIndexFromObj - * call above, but a single enumeration for both. The save file - * dialog doesn't support -multiple, but it falls in the middle of - * the enumeration. Ultimately, this means that when the index found - * by GetIndexFromObj is >= FILE_MULTIPLE, when doing a save file - * dialog, we have to increment the index, so that it matches the - * open file dialog enumeration. - */ - if (!open && index >= FILE_MULTIPLE) { - index++; - } if (i + 1 == objc) { string = Tcl_GetStringFromObj(optionPtr, NULL); Tcl_AppendResult(interp, "value for \"", string, "\" missing", @@ -633,7 +632,7 @@ GetFileNameW(clientData, interp, objc, objv, open) } string = Tcl_GetStringFromObj(valuePtr, NULL); - switch ((enum options) index) { + switch (options[index].value) { case FILE_DEFAULT: { if (string[0] == '.') { string++; |