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

typo fix, add -takefocus 0 to toplevel schematic windows

This commit is contained in:
stefan schippers 2025-09-26 01:15:27 +02:00
parent 4fb9ffb766
commit de7e952f7e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/xinit.c
View File

@ -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);

2
src/xschem.tcl
View File

@ -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