From 86311f8d4707e21dca2c0dea4064b24d59ec8ff4 Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Sun, 14 Aug 2022 08:17:44 +0200
Subject: [PATCH] focus main window when mouse leaves SNAP or GRID text entries

---
 src/xschem.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index f3f9b291..35779c96 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4802,8 +4802,10 @@ proc pack_widgets { { topwin {} } } {
     }
     toolbar_show $topwin
     pack $topwin.statusbar -after $topwin.drw -anchor sw  -fill x 
-    bind $topwin.statusbar.5 <Leave> "set cadgrid \[$topwin.statusbar.5 get\]; xschem set cadgrid \$cadgrid"
-    bind $topwin.statusbar.3 <Leave> "set cadsnap \[$topwin.statusbar.3 get\]; xschem set cadsnap \$cadsnap"
+    bind $topwin.statusbar.5 <Leave> \
+      "focus $topwin.drw; set cadgrid \[$topwin.statusbar.5 get\]; xschem set cadgrid \$cadgrid"
+    bind $topwin.statusbar.3 <Leave> \
+      "focus $topwin.drw; set cadsnap \[$topwin.statusbar.3 get\]; xschem set cadsnap \$cadsnap"
   }
 }