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

fix regression on menu fullscreen command

This commit is contained in:
Stefan Frederik 2022-08-28 11:23:51 +02:00
parent 1519afa241
commit 8be273b9f7
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/scheduler.c
View File

@ -788,7 +788,8 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
else if(!strcmp(argv[1],"fullscreen"))
{
cmd_found = 1;
toggle_fullscreen(argv[2]);
if(argc > 2) toggle_fullscreen(argv[2]);
else toggle_fullscreen(".drw");
Tcl_ResetResult(interp);
}
}

7
src/xschem.tcl
View File

@ -5083,9 +5083,10 @@ proc build_widgets { {topwin {} } } {
}
$topwin.menubar.view.menu add command -label "Redraw" -command "xschem redraw" -accelerator Esc
toolbar_create ViewRedraw "xschem redraw" "Redraw" $topwin
$topwin.menubar.view.menu add checkbutton -label "Fullscreen" -variable fullscreen \
-accelerator {Alt+Shift+F} -command "
xschem fullscreen $topwin
$topwin.menubar.view.menu add command -label "Fullscreen" \
-accelerator "\\" -command "
if {\$fullscreen == 1} {set fullscreen 2} ;# avoid hiding menu in true fullscreen
xschem fullscreen $topwin.drw
"
$topwin.menubar.view.menu add command -label "Zoom Full" -command "xschem zoom_full" -accelerator F
$topwin.menubar.view.menu add command -label "Zoom In" -command "xschem zoom_in" -accelerator Shift+Z