resolve a race condition between Configure event delivery, window creation, and wm hints setting for icon
This commit is contained in:
parent
bbba3b9c02
commit
4cb0a12d64
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue