add a catch {} in execute_fileevent (non existent ..._simulate_id var)

2023-11-06 16:59:14 +01:00 · 2023-11-06 16:59:14 +01:00 · 714724561d
parent 98def78164
commit 714724561d
1 changed files with 1 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -270,7 +270,7 @@ proc execute_fileevent {id} {
      if {[info exists execute(callback,$id)] && $execute(callback,$id) ne {}} {
        eval uplevel #0 [list $execute(callback,$id)]
      } 
-      unset tctx::[xschem get current_win_path]_simulate_id
+      catch {unset tctx::[xschem get current_win_path]_simulate_id}
      catch {unset execute(callback,$id)} 
      set execute(cmd,last) $execute(cmd,$id)
      set execute(data,last) $execute(data,$id)