Make nte initialize TCL properly.

PR:		ports/27219
Submitted by:	Takeshi MUTOH <mutoh@info.nara-k.ac.jp>
This commit is contained in:
Bill Fenner 2001-08-01 22:49:48 +00:00
parent 8f1f1812fb
commit 394bd755a8
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=45716

16
mbone/nte/files/patch-af Normal file
View File

@ -0,0 +1,16 @@
--- src/ui_init.c.orig Wed Aug 1 15:25:41 2001
+++ src/ui_init.c Wed Aug 1 15:26:27 2001
@@ -167,11 +167,11 @@
}
Tcl_SetVar(interp, "argv", buf, TCL_GLOBAL_ONLY);
#ifndef WIN32
- if(Tk_Init(interp)!=TCL_OK)
+ if(Tcl_Init(interp)!=TCL_OK || Tk_Init(interp)!=TCL_OK)
{
/*I'd like to check this, but can't do anything sensible because
Tk_Init trys to read the TK_LIBRARY files, and I don't want it to!*/
- fprintf(stderr, "nt: error opening display: %s\n", interp->result);
+ fprintf(stderr, "nt: error initializing tcl/tk: %s\n", interp->result);
exit(1);
}
#else