28 lines
682 B
Plaintext
28 lines
682 B
Plaintext
--- src/ui_init.c.orig Fri Jan 8 18:14:34 1999
|
|
+++ src/ui_init.c Sat Jan 9 00:28:24 1999
|
|
@@ -104,6 +104,7 @@
|
|
#ifdef TCL_MEM_DEBUG
|
|
Tcl_InitMemory(interp);
|
|
#endif
|
|
+ Tcl_Init(interp);
|
|
|
|
/*
|
|
* Parse command-line arguments.
|
|
@@ -136,7 +137,7 @@
|
|
if (gui==GUI) {
|
|
if(Tk_Init(interp)!=TCL_OK)
|
|
{
|
|
- fprintf(stderr, "Sdr: %s\n", interp->result);
|
|
+ fprintf(stderr, "Sdr Tk_Init(): %s\n", interp->result);
|
|
exit(-1);
|
|
}
|
|
mainWindow = Tk_MainWindow(interp);
|
|
@@ -180,7 +181,6 @@
|
|
int ui_create_interface()
|
|
{
|
|
int i;
|
|
- announce_error(Tcl_VarEval(interp, tcl_libs, 0), "tcl_libs");
|
|
|
|
/*
|
|
* Set the geometry of the main window, if requested.
|