From 8be273b9f7c38c27ec9e1a9a7407d4c38252ccb0 Mon Sep 17 00:00:00 2001 From: Stefan Frederik Date: Sun, 28 Aug 2022 11:23:51 +0200 Subject: [PATCH] fix regression on menu fullscreen command --- src/scheduler.c | 3 ++- src/xschem.tcl | 7 ++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/scheduler.c b/src/scheduler.c index c1027f65..c1db6dad 100644 --- a/src/scheduler.c +++ b/src/scheduler.c @@ -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); } } diff --git a/src/xschem.tcl b/src/xschem.tcl index 130f17ec..dd359645 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -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