diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2008-12-10 09:08:29 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2008-12-10 09:08:29 (GMT) |
| commit | e55833099016087e91b4f031aeb8a13dee4adf04 (patch) | |
| tree | e8f315e6d093101f24b54999ea107592f796a9c8 | |
| parent | aae5cba70a695b2cb0cf9080be387968d42e394b (diff) | |
| download | tk-e55833099016087e91b4f031aeb8a13dee4adf04.zip tk-e55833099016087e91b4f031aeb8a13dee4adf04.tar.gz tk-e55833099016087e91b4f031aeb8a13dee4adf04.tar.bz2 | |
Fixed windows build glitches for tip 324
| -rw-r--r-- | win/tkWinDialog.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c index 0f03f1d..1616a97 100644 --- a/win/tkWinDialog.c +++ b/win/tkWinDialog.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinDialog.c,v 1.56 2008/12/10 05:02:52 das Exp $ + * RCS: @(#) $Id: tkWinDialog.c,v 1.57 2008/12/10 09:08:29 patthoyts Exp $ * */ @@ -2566,7 +2566,7 @@ FontchooserConfigureCmd( } for (i = 1; i < objc; i += 2) { - int optionIndex; + int optionIndex, len; if (Tcl_GetIndexFromObj(interp, objv[i], optionStrings, "option", 0, &optionIndex) != TCL_OK) { return TCL_ERROR; @@ -2736,7 +2736,7 @@ FontchooserShowCmd( if (TCL_OK == r) { oldMode = Tcl_SetServiceMode(TCL_SERVICE_ALL); - if (FontChooser(&cf)) { + if (ChooseFont(&cf)) { if (hdPtr->cmdObj) { ApplyLogfont(hdPtr->interp, hdPtr->cmdObj, hdc, &lf); } |