set focus inside topwin.drw in proc set_bindings

2025-09-26 11:20:44 +02:00 · 2025-09-26 11:20:44 +02:00 · 5ee7af7b02
parent bd085d2e4f
commit 5ee7af7b02
1 changed files with 3 additions and 0 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -9012,7 +9012,10 @@ global env has_x OS autofocus_mainwindow
      "focus ${parent}.drw; set cadgrid \[${parent}.statusbar.5 get\]; xschem set cadgrid \$cadgrid"
    bind ${parent}.statusbar.3 <Leave> \
      "focus ${parent}.drw; set cadsnap \[${parent}.statusbar.3 get\]; xschem set cadsnap \$cadsnap"
+    
+    focus ${parent}.drw
  }
+  
 }

 ## this function sets up all tk windows and binds X events. It is executed by xinit.c after completing