luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

execute_fileevent: delete ..*simulate_id only if called from related id

This commit is contained in:
stefan schippers 2023-11-06 19:14:32 +01:00
parent 71f5994798
commit aeafaf5052
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/xschem.tcl
View File

@ -270,7 +270,11 @@ proc execute_fileevent {id} {
if {[info exists execute(callback,$id)] && $execute(callback,$id) ne {}} {
eval uplevel #0 [list $execute(callback,$id)]
}
catch {unset tctx::[xschem get current_win_path]_simulate_id}
if { [info exists tctx::[xschem get current_win_path]_simulate_id] } {
if { [set tctx::[xschem get current_win_path]_simulate_id] eq $id } {
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)