From 6198d21404ae52ce4b4f451e4126c2cdb300b4a6 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 25 Jun 2023 09:05:37 +0200
Subject: [PATCH] add "show_infowindow_after_netlist" tcl variable (default =
 0) that can be set in xschemrc to always show erc window after netlist even
 without or no critical errors

---
 src/spice_netlist.c   | 1 +
 src/tedax_netlist.c   | 1 +
 src/verilog_netlist.c | 1 +
 src/vhdl_netlist.c    | 1 +
 src/xschem.tcl        | 4 +++-
 src/xschemrc          | 4 ++++
 6 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/spice_netlist.c b/src/spice_netlist.c
index a2c943dc..abe012ef 100644
--- a/src/spice_netlist.c
+++ b/src/spice_netlist.c
@@ -519,6 +519,7 @@ int global_spice_netlist(int global)  /* netlister driver */
  my_free(_ALLOC_ID_, &type);
  my_free(_ALLOC_ID_, &place);
  xctx->netlist_count = 0;
+ if(tclgetboolvar("show_infowindow_after_netlist")) tcleval("show_infotext");
  return err;
 }
 
diff --git a/src/tedax_netlist.c b/src/tedax_netlist.c
index e1e38d55..ce6bdfd2 100644
--- a/src/tedax_netlist.c
+++ b/src/tedax_netlist.c
@@ -271,6 +271,7 @@ int global_tedax_netlist(int global)  /* netlister driver */
  }
  if(!debug_var) xunlink(netl_filename);
  xctx->netlist_count = 0;
+ if(tclgetboolvar("show_infowindow_after_netlist")) tcleval("show_infotext");
  return err;
 }
 
diff --git a/src/verilog_netlist.c b/src/verilog_netlist.c
index ce3d47e7..5b86e068 100644
--- a/src/verilog_netlist.c
+++ b/src/verilog_netlist.c
@@ -399,6 +399,7 @@ int global_verilog_netlist(int global)  /* netlister driver */
  my_free(_ALLOC_ID_, &tmp_string);
  my_free(_ALLOC_ID_, &type);
  xctx->netlist_count = 0;
+ if(tclgetboolvar("show_infowindow_after_netlist")) tcleval("show_infotext");
  return err;
 }
 
diff --git a/src/vhdl_netlist.c b/src/vhdl_netlist.c
index 82bfea05..f6166857 100644
--- a/src/vhdl_netlist.c
+++ b/src/vhdl_netlist.c
@@ -486,6 +486,7 @@ int global_vhdl_netlist(int global)  /* netlister driver */
  my_free(_ALLOC_ID_, &type);
  my_free(_ALLOC_ID_, &port_value);
  xctx->netlist_count = 0;
+ if(tclgetboolvar("show_infowindow_after_netlist")) tcleval("show_infotext");
  return err;
 }
 
diff --git a/src/xschem.tcl b/src/xschem.tcl
index 573bf035..39ca2f3f 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -5470,7 +5470,8 @@ set tctx::global_list {
   persistent_command preserve_unchanged_attrs prev_symbol ps_colors rainbow_colors
   rawfile_loaded rcode recentfile
   replace_key retval retval_orig rotated_text search_exact search_found search_schematic
-  search_select search_value selected_tok show_hidden_texts show_infowindow show_pin_net_names
+  search_select search_value selected_tok show_hidden_texts show_infowindow
+  show_infowindow_after_netlist show_pin_net_names
   simconf_default_geometry simconf_vpos simulate_bg spiceprefix split_files svg_colors
   svg_font_name sym_txt symbol symbol_width tclcmd_txt tclstop text_line_default_geometry
   textwindow_fileid textwindow_filename textwindow_w tmp_bus_char toolbar_horiz toolbar_list
@@ -6560,6 +6561,7 @@ set_ne compare_sch 0
 set_ne disable_unique_names 0
 set_ne sym_txt 1
 set_ne show_infowindow 0 
+set_ne show_infowindow_after_netlist 0 
 set_ne symbol_width 150
 set_ne editor {gvim -f}
 set_ne rainbow_colors 0
diff --git a/src/xschemrc b/src/xschemrc
index b5bac7e6..3b7e91bb 100644
--- a/src/xschemrc
+++ b/src/xschemrc
@@ -337,6 +337,10 @@
 # set show_infowindow 0
 
 ###########################################################################
+#### ALWAYS SHOW ERC INFO WINDOW AFTER NETLIST
+###########################################################################
+#### default: 0 
+# set show_infowindow_after_netlist 0
 
 ###########################################################################
 #### TCP CONNECTION WITH GAW