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

when pressing netlist button or executing `xschem netlist` command turn Waves button (if waves are loaded) to yellow to indicate old waves are shown

This commit is contained in:
stefan schippers 2023-12-22 16:28:49 +01:00
parent 77c99c2202
commit fbfbef384c
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/xschem.tcl
View File

@ -658,8 +658,20 @@ proc ev0 {args} {
# should not be called directly by user # should not be called directly by user
# does netlist post processing, called from global_(spice|vhdl|verilog)_netlist() # does netlist post processing, called from global_(spice|vhdl|verilog)_netlist()
proc netlist {source_file show netlist_file} { proc netlist {source_file show netlist_file} {
global XSCHEM_SHAREDIR flat_netlist netlist_dir global XSCHEM_SHAREDIR flat_netlist netlist_dir simulate_bg
global verilog_2001 debug_var OS verilog_bitblast global verilog_2001 debug_var OS verilog_bitblast
# if waves are loaded turn Waves button to yellow to indicate old waves are shown
set win_path [xschem get current_win_path]
set top_path [xschem get top_path]
set waves_var tctx::${win_path}_waves
set waves_button $top_path.menubar.waves
if {$waves_var ne $simulate_bg} {
set $waves_var yellow
$waves_button configure -bg yellow
}
set netlist_type [xschem get netlist_type] set netlist_type [xschem get netlist_type]
if {$debug_var <= -1} { puts "netlist: source_file=$source_file, netlist_type=$netlist_type" } if {$debug_var <= -1} { puts "netlist: source_file=$source_file, netlist_type=$netlist_type" }