From de7e952f7e8babd2217837b1d68cf3e36b2d1355 Mon Sep 17 00:00:00 2001 From: stefan schippers Date: Fri, 26 Sep 2025 01:15:27 +0200 Subject: [PATCH] typo fix, add -takefocus 0 to toplevel schematic windows --- src/xinit.c | 2 +- src/xschem.tcl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/xinit.c b/src/xinit.c index 2f4bcb0e..58e33431 100644 --- a/src/xinit.c +++ b/src/xinit.c @@ -1685,7 +1685,7 @@ static void create_new_window(int *window_count, const char *win_path, const cha my_snprintf(toppath, S(toppath), ".x%d", n); } if(has_x) { - tclvareval("toplevel ", toppath, " -bg {} -width 400 -height 400", NULL); + tclvareval("toplevel ", toppath, " -bg {} -width 400 -height 400 -takefocus 0", NULL); tclvareval("set_geom ", toppath, " [abs_sym_path {", fname, "}]", NULL); tclvareval("build_widgets ", toppath, NULL); tclvareval("pack_widgets ", toppath, NULL); diff --git a/src/xschem.tcl b/src/xschem.tcl index f9ae80e4..255d2686 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -9144,7 +9144,7 @@ proc build_widgets { {topwin {} } } { menu $topwin.menubar.edit -tearoff 0 -takefocus 0 $topwin.menubar add cascade -label "Options" -menu $topwin.menubar.option menu $topwin.menubar.option -tearoff 0 -takefocus 0 - topwin.menubar add cascade -label "View" -menu $topwin.menubar.view + $topwin.menubar add cascade -label "View" -menu $topwin.menubar.view menu $topwin.menubar.view -tearoff 0 -takefocus 0 $topwin.menubar add cascade -label "Properties" -menu $topwin.menubar.prop menu $topwin.menubar.prop -tearoff 0 -takefocus 0