From df0fc572f30237fa4820a851ab8c5d023242b30d Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Sat, 3 Jul 2021 08:34:38 +0200
Subject: [PATCH] Talk To Gaw (ttg) improvement: use "sel" instead of "p0" for
 panel selection, meaning "selected panel (or 1st panel if no selected)" for
 waveform display

---
 src/hilight.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/hilight.c b/src/hilight.c
index 47e40435..d11fbed4 100644
--- a/src/hilight.c
+++ b/src/hilight.c
@@ -183,7 +183,7 @@ void create_plot_cmd(int viewer)
           my_strdup(241, &t, tok);
           my_strdup2(245, &p, (entry->path)+1);
           Tcl_VarEval(interp, "puts $gaw_fd {copyvar v(", strtolower(p), strtolower(t),
-                      ") p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
+                      ") sel #", color_str, "}\nvwait gaw_fd\n", NULL);
           my_free(759, &p);
           my_free(760, &t);
         }
@@ -774,7 +774,7 @@ static void send_net_to_gaw(int simtype, const char *node)
       my_strdup2(254, &p, xctx->sch_path[xctx->currsch]+1);
       if(simtype == 0 ) { /* spice */
         Tcl_VarEval(interp, "puts $gaw_fd {copyvar v(", strtolower(p), strtolower(t),
-                    ") p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
+                    ") sel #", color_str, "}\nvwait gaw_fd\n", NULL);
       } else { /* Xyce */
         char *c=p;
         while(*c){
@@ -782,7 +782,7 @@ static void send_net_to_gaw(int simtype, const char *node)
           c++;
         }
         Tcl_VarEval(interp, "puts $gaw_fd {copyvar ", strtoupper(p), strtoupper(t),
-                    " p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
+                    " sel #", color_str, "}\nvwait gaw_fd\n", NULL);
       }
     }
     my_free(774, &p);
@@ -811,7 +811,7 @@ static void send_current_to_gaw(int simtype, const char *node)
     if(!simtype) { /* spice */
       Tcl_VarEval(interp, "puts $gaw_fd {copyvar i(", xctx->currsch>0 ? "v." : "",
                   strtolower(p), strtolower(t),
-                  ") p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
+                  ") sel #", color_str, "}\nvwait gaw_fd\n", NULL);
     } else {       /* Xyce */
       char *c=p;
       while(*c){
@@ -820,7 +820,7 @@ static void send_current_to_gaw(int simtype, const char *node)
       }
       Tcl_VarEval(interp, "puts $gaw_fd {copyvar ", xctx->currsch>0 ? "V:" : "",
                   strtoupper(p), strtoupper( xctx->currsch>0 ? t+1 : t ), "#branch",
-                  " p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
+                  " sel #", color_str, "}\nvwait gaw_fd\n", NULL);
     }
   }
   my_free(1181, &p);