luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

source $tcl_files *after* setting default bindings (set_bindings), otherwise additional bindings defined therein will stop working

This commit is contained in:
stefan schippers 2025-09-26 23:51:55 +02:00
parent bbfe761c18
commit 8043c2af75
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/xinit.c
View File

@ -3096,6 +3096,10 @@ int Tcl_AppInit(Tcl_Interp *inter)
tclsetvar("compare_sch", "1");
}
/* must be before source_user_tcl_files, so event bindings defined there
* will be correctly appended to default bindings */
tcleval("set_bindings .drw");
/* */
/* SOURCE XSCHEMRC SUPPLIED TCL FILES */
/* */
@ -3150,7 +3154,6 @@ int Tcl_AppInit(Tcl_Interp *inter)
if(cli_opt_do_netlist) set_modify(-1); /* set tab/window title */
}
xctx->pending_fullzoom=1;
tcleval("set_bindings .drw");
if(has_x) tclvareval("set_geom . [xschem get schname]", NULL);
/* Necessary to tell xschem the initial area to display */