summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-12-10 09:08:29 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-12-10 09:08:29 (GMT)
commite55833099016087e91b4f031aeb8a13dee4adf04 (patch)
treee8f315e6d093101f24b54999ea107592f796a9c8
parentaae5cba70a695b2cb0cf9080be387968d42e394b (diff)
downloadtk-e55833099016087e91b4f031aeb8a13dee4adf04.zip
tk-e55833099016087e91b4f031aeb8a13dee4adf04.tar.gz
tk-e55833099016087e91b4f031aeb8a13dee4adf04.tar.bz2
Fixed windows build glitches for tip 324
-rw-r--r--win/tkWinDialog.c6
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);
}