summaryrefslogtreecommitdiffstats
path: root/unix/tclXtTest.c
diff options
context:
space:
mode:
Diffstat (limited to 'unix/tclXtTest.c')
-rw-r--r--unix/tclXtTest.c9
1 files changed, 8 insertions, 1 deletions
diff --git a/unix/tclXtTest.c b/unix/tclXtTest.c
index da45a57..abdcb8d 100644
--- a/unix/tclXtTest.c
+++ b/unix/tclXtTest.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: tclXtTest.c,v 1.3 1999/04/16 00:48:06 stanton Exp $
+ * RCS: @(#) $Id: tclXtTest.c,v 1.4 1999/07/02 06:05:34 welch Exp $
*/
#include <X11/Intrinsic.h>
@@ -16,6 +16,8 @@
static int TesteventloopCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int argc, char **argv));
+extern void InitNotifier _ANSI_ARGS_((void));
+
/*
*----------------------------------------------------------------------
@@ -40,6 +42,11 @@ int
Tclxttest_Init(interp)
Tcl_Interp *interp; /* Interpreter for application. */
{
+ if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
+ return TCL_ERROR;
+ }
+ XtToolkitInitialize();
+ InitNotifier();
Tcl_CreateCommand(interp, "testeventloop", TesteventloopCmd,
(ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
return TCL_OK;