From 06632ffba5b880eec502e6cce56484928f07d2b5 Mon Sep 17 00:00:00 2001 From: stefan schippers Date: Fri, 28 Mar 2025 16:51:00 +0100 Subject: [PATCH] fix proc dellview "Update" issue --- src/xschem.tcl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/xschem.tcl b/src/xschem.tcl index 8aa49415..62486833 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -1910,7 +1910,8 @@ proc cellview_setlabels {w symbol derived_symbol} { xschem set schsymbolprop $newprop xschem set_modify 3 ;# set only modified flag to force a save, do not update window/tab titles xschem save fast - xschem remove_symbols ;# purge all symbols to force a reload from disk + # no! cellview_setlabels called from cellview inside a "foreach {i symbol} $syms {...}" + # xschem remove_symbols ;# purge all symbols to force a reload from disk xschem load -keep_symbols -nodraw -noundoreset $current set netlist_type $save_netlist_type xschem set netlist_type $netlist_type @@ -1967,7 +1968,7 @@ proc cellview_edit_sym {w} { # derived_symbols: empty or 'derived_symbols' # upd: never set by caller (used iinternally to update) proc cellview { {derived_symbols {}} {upd 0}} { - global keep_symbols nolist_libs dark_gui_colorscheme netlist_type + global nolist_libs dark_gui_colorscheme netlist_type set save_netlist_type [xschem get netlist_type] @@ -2096,7 +2097,7 @@ proc cellview { {derived_symbols {}} {upd 0}} { if {$upd} {return} frame .cv.bottom - button .cv.bottom.update -text Update -command "cellview [list $derived_symbols] 1" + button .cv.bottom.update -text Update -command "cellview [list $derived_symbols] 1; xschem reload_symbols" pack .cv.bottom.update -side left label .cv.bottom.status -text {STATUS LINE} pack .cv.bottom.status -fill x -expand yes