resolve a race condition between Configure event delivery, window creation, and wm hints setting for icon

This commit is contained in:
Stefan Frederik 2021-11-18 03:06:22 +01:00
parent bbba3b9c02
commit 4cb0a12d64
1 changed files with 2 additions and 2 deletions

View File

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