summaryrefslogtreecommitdiffstats
path: root/generic/tkCmds.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tkCmds.c')
-rw-r--r--generic/tkCmds.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c
index 49d1f38..21bd8d4 100644
--- a/generic/tkCmds.c
+++ b/generic/tkCmds.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkCmds.c,v 1.48 2008/12/10 00:34:51 das Exp $
+ * RCS: @(#) $Id: tkCmds.c,v 1.49 2008/12/10 05:02:40 das Exp $
*/
#include "tkInt.h"
@@ -51,6 +51,12 @@ static int WindowingsystemCmd(ClientData dummy,
Tcl_Interp *interp, int objc,
Tcl_Obj *const *objv);
+#if defined(__WIN32__) || defined(MAC_OSX_TK)
+MODULE_SCOPE const TkEnsemble tkFontchooserEnsemble[];
+#else
+#define tkFontchooserEnsemble NULL
+#endif
+
/*
* Table of tk subcommand names and implementations.
*/
@@ -63,6 +69,7 @@ static const TkEnsemble tkCmdMap[] = {
{"scaling", ScalingCmd },
{"useinputmethods", UseinputmethodsCmd },
{"windowingsystem", WindowingsystemCmd },
+ {"fontchooser", NULL, tkFontchooserEnsemble},
{NULL}
};
@@ -635,6 +642,9 @@ int
TkInitTkCmd(Tcl_Interp *interp, ClientData clientData)
{
TkMakeEnsemble(interp, "::", "tk", clientData, tkCmdMap);
+#if defined(__WIN32__) || defined(MAC_OSX_TK)
+ TkInitFontchooser(interp, clientData);
+#endif
return TCL_OK;
}