From 4cb0a12d643b646d1129b4443d22aa62ab97251b Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Thu, 18 Nov 2021 03:06:22 +0100
Subject: [PATCH] resolve a race condition between Configure event delivery,
 window creation, and wm hints setting for icon

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 915d3bc2..dd1e6f31 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -3483,10 +3483,10 @@ proc new_window {what {filename {}} {path {-}}} {
     }
     toplevel $path -bg {} -width 400 -height 400
     build_widgets $path
-    pack_widgets $path ;# also does set_bindings $path.drw
-    set_bindings $path.drw
+    pack_widgets $path
     update
     xschem new_schematic create $path $path.drw [abs_sym_path $filename]
+    set_bindings $path.drw
     # set bindings after creating new schematic otherwise 
     # a Configure or Expose event is sent before window setup completed.
     save_ctx $path.drw