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

fix a regression introduced by saving/restoring tcl context in preview_window()

This commit is contained in:
stefan schippers 2023-12-07 16:02:31 +01:00
parent 8269eff430
commit 8c81f629d0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/xinit.c
View File

@ -1164,6 +1164,7 @@ void preview_window(const char *what, const char *win_path, const char *fname)
if(semaphore) return; if(semaphore) return;
++semaphore; ++semaphore;
dbg(1, "------\n"); dbg(1, "------\n");
tclvareval("save_ctx ", xctx->current_win_path, NULL);
if(!strcmp(what, "create")) { if(!strcmp(what, "create")) {
dbg(1, "preview_window() create, save ctx, win_path=%s\n", win_path); dbg(1, "preview_window() create, save ctx, win_path=%s\n", win_path);
tkpre_window = Tk_NameToWindow(interp, win_path, mainwindow); tkpre_window = Tk_NameToWindow(interp, win_path, mainwindow);
@ -1172,7 +1173,6 @@ void preview_window(const char *what, const char *win_path, const char *fname)
} }
else if(!strcmp(what, "draw")) { else if(!strcmp(what, "draw")) {
dbg(1, "preview_window() draw\n"); dbg(1, "preview_window() draw\n");
tclvareval("save_ctx ", xctx->current_win_path, NULL);
save_xctx = xctx; /* save current schematic */ save_xctx = xctx; /* save current schematic */
xctx = preview_xctx; xctx = preview_xctx;
if(!current_file || strcmp(fname, current_file) ) { if(!current_file || strcmp(fname, current_file) ) {
@ -1207,10 +1207,10 @@ void preview_window(const char *what, const char *win_path, const char *fname)
Tk_DestroyWindow(tkpre_window); Tk_DestroyWindow(tkpre_window);
my_free(_ALLOC_ID_, &current_file); my_free(_ALLOC_ID_, &current_file);
xctx = save_xctx; /* restore schematic */ xctx = save_xctx; /* restore schematic */
tclvareval("restore_ctx ", xctx->current_win_path, NULL);
save_xctx = NULL; save_xctx = NULL;
set_modify(-1); set_modify(-1);
} }
tclvareval("restore_ctx ", xctx->current_win_path, NULL);
semaphore--; semaphore--;
} }