From 67e9e305ec2c44044681275a1707698e5f09b4cd Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 29 Apr 2023 01:59:35 +0200
Subject: [PATCH] fix persistent insert symbol dialog by not placing anything
 if selecting multiple times the same symbol. proc myload_place_symbol: add an
 update statement to resolve race conditions.

---
 src/xschem.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 2a6f491b..9007fba0 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2693,7 +2693,8 @@ proc myload_place_symbol {} {
   global myload_retval
 
   set entry [.load.buttons_bot.entry get]
-  puts "entry=$entry, myload_retval=$myload_retval"
+  # puts "entry=$entry, myload_retval=$myload_retval"
+  update
   if {$myload_retval == $entry} {return}
   set myload_retval  $entry
   set sym [myload_getresult 2 0]
@@ -2978,6 +2979,9 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
       }
     }
     if {$myload_loadfile == 2} {
+      # set to empty to avoid myload_place_symbol doing nothing if placing
+      # the same symbol multiple times.
+      set myload_retval {}
       myload_place_symbol
     }
   };# bind .load.l.paneright.list <<ListboxSelect>>