do not execute tcl proc "build_windows" in xinit.c if no X or -x option given

2020-10-27 12:00:34 +01:00 · 2020-10-27 12:00:34 +01:00 · 5706b12ad9
parent d5ff835614
commit 5706b12ad9
1 changed files with 1 additions and 1 deletions
--- a/src/xinit.c
+++ b/src/xinit.c
@ -1409,7 +1409,7 @@ int Tcl_AppInit(Tcl_Interp *inter)
 /* Completing tk windows creation (see xschem.tcl, build_windows) and event binding */
 /* *AFTER* X initialization done                                                    */
 /*                                                                                  */
- tcleval("build_windows");
+ if(has_x) tcleval("build_windows");

 fullscreen=atoi(tclgetvar("fullscreen"));
 if(fullscreen) {