tcl code indentation fixes, cleanup, some global vars removed

This commit is contained in:
Stefan Frederik 2020-12-07 15:46:20 +01:00
parent 4d56fcc72d
commit c5c729fc89
2 changed files with 1451 additions and 1438 deletions

View File

@ -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);

File diff suppressed because it is too large Load Diff