cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make sdr work with tcl80.1.5 (from FreeBSD)

Browse Source
This commit is contained in:
angelos 1999-07-15 01:36:57 +00:00
parent 4663af165a
commit c8a50242e7
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
mbone/sdr/patches/patch-ag Normal file
View File

@ -0,0 +1,27 @@
--- 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.