tcl code indentation fixes, cleanup, some global vars removed
This commit is contained in:
parent
4d56fcc72d
commit
c5c729fc89
|
|
@ -1059,9 +1059,10 @@ int Tcl_AppInit(Tcl_Interp *inter)
|
|||
|
||||
interp=inter;
|
||||
Tcl_Init(interp);
|
||||
if(has_x) Tk_Init(interp);
|
||||
if(!has_x) tclsetvar("no_x","1");
|
||||
|
||||
if(has_x) {
|
||||
Tk_Init(interp);
|
||||
tclsetvar("has_x","1");
|
||||
}
|
||||
Tcl_CreateExitHandler(tclexit, 0);
|
||||
#ifdef __unix__
|
||||
my_snprintf(tmp, S(tmp),"regsub -all {~/} {.:%s} {%s/}", XSCHEM_LIBRARY_PATH, home_dir);
|
||||
|
|
|
|||
2882
src/xschem.tcl
2882
src/xschem.tcl
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue