a new bug concerning tcl

[Tuukka Toivonen]

BUG: electric crashes at startup when TCL is included
SYS: x86, glibc 2.06
SYM: When trying to initialize TCL, it fails and Electric tries
     to display an error dialog. However, at this stage GUI is not yet
     initialized and a segmentation fault happens.
     (So this is a double-bug where the first problem triggers another)
----
(gdb) run
Starting program: /cdimage/electric-6.04/./electric 

Program received signal SIGSEGV, Segmentation fault.
0x80d3bcb in DiaInitDialog (dialog=0x844bcbc) at src/graph/graphunixx11.c:9684
9684                    base = el_curwindowpart->frame->toplevelwidget;
(gdb) display el_curwindowpart                
1: el_curwindowpart = (WINDOWPART *) 0x0
(gdb) bt
#0  0x80d3bcb in DiaInitDialog (dialog=0x844bcbc)
    at src/graph/graphunixx11.c:9684
#1  0x80c5451 in error (s=0x83cc145 "(from Tcl_Init) %s")
    at src/graph/graphunixx11.c:2791
#2  0x80c2c49 in gra_initializetcl () at src/graph/graphunixx11.c:1870
#3  0x80bf639 in main (argc=1, argv=0xbffff5f4)
    at src/graph/graphunixx11.c:1057
----
FIX: not yet given. However, the following doesn't work properly:
----
--- electric-6.04/src/db/data.c.orig    Thu Jul 19 19:22:42 2001
+++ electric-6.04/src/db/data.c Sun Aug  5 19:20:59 2001
@@ -75,7 +75,7 @@
 VIEW        *el_docview;                       /* the documentation view 
(text) */
 
 WINDOWPART  *el_topwindowpart;         /* top window in list */
-WINDOWPART  *el_curwindowpart;         /* current window partition */
+WINDOWPART  *el_curwindowpart = NOWINDOWPART;  /* current window partition */
 
 WINDOWFRAME *el_firstwindowframe = NOWINDOWFRAME;
 WINDOWFRAME *el_curwindowframe;
----
Because instead of segmentation fault the following useless error will be
displayed:
Error: XtCreateWidget "dialog_popup" requires non-NULL parent

The TCL error which triggers all this is the following:
(which is returned from Tcl_Init(), called from graphunixx11.c:1869)
----
gra_tclinterp->result = 0x84e6060 "Can't find a usable init.tcl in the
following directories: \n    /home/ftp/usr/lib/electric/tcl/ ./lib/tcl8.0
./tcl8.0/library ./library\n\n\n\nThis probably means that Tcl wasn't
installed properly.\n"
----
Compile path (pwd): /cdimage/electric-6.04
So file /cdimage/electric-6.04/lib/tcl/init.tcl should be used.
This system doesn't have TCL nor Electric yet installed (if it would have, 
maybe TCL could find the init.tcl file which would mask this error)