From b21ac67cc4a277efd033104bcb30ae7d25703d0a Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 9 Dec 2023 02:09:36 +0100
Subject: [PATCH] add `xschem set hilight_color` command

---
 doc/xschem_man/developer_info.html | 3 ++-
 src/scheduler.c                    | 7 +++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/doc/xschem_man/developer_info.html b/doc/xschem_man/developer_info.html
index 3a603e1f..bf953e8f 100644
--- a/doc/xschem_man/developer_info.html
+++ b/doc/xschem_man/developer_info.html
@@ -538,6 +538,7 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
 
 
 
+
 
 
    <li><kbd>       abort_operation</kbd></li><pre>
@@ -1227,6 +1228,7 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
      <li><kbd> format </kbd> set name of custom format attribute used for netlisting </li>
      <li><kbd> header_text </kbd> set header metadata (used for license info) </li>
      <li><kbd> hide_symbols </kbd> set to 0,1,2 for various hiding level of symbols </li>
+     <li><kbd> hilight_color </kbd> set hilight color for next hilight </li>
      <li><kbd> infowindow_text </kbd> ERC messages </li>
      <li><kbd> netlist_name </kbd> set custom netlist name </li>
      <li><kbd> netlist_type </kbd> set netlisting mode (spice, verilog, vhdl, tedax, symbol) </li>
@@ -1449,7 +1451,6 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
 
 
 
-
 
 
  </ul>
diff --git a/src/scheduler.c b/src/scheduler.c
index 3918e13a..3982afb6 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -4155,6 +4155,13 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
             if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
             xctx->hide_symbols=atoi(argv[3]);
           }
+          else if(!strcmp(argv[2], "hilight_color")) { /* set hilight color for next hilight */
+            int c = atoi(argv[3]);
+            if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
+            if(c >= cadlayers) c = 4;
+            xctx->hilight_color= c;
+          }
+
           else if(!strcmp(argv[2], "infowindow_text")) { /* ERC messages */
             if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
             my_strdup(_ALLOC_ID_, &xctx->infowindow_text, argv[3]);