fix hierarchical pathname for current probes to gaw

2020-10-08 03:31:24 +02:00 · 2020-10-08 03:31:24 +02:00 · f2d7cc4ca8
parent bc338881f3
commit f2d7cc4ca8
1 changed files with 2 additions and 1 deletions
--- a/src/hilight.c
+++ b/src/hilight.c
@ -716,7 +716,8 @@ static void send_current_to_gaw(const char *node)
  for(k=1; k<=tok_mult; k++) {
    my_strdup(246, &t, find_nth(expanded_tok, ',', k));
    my_strdup2(254, &p, sch_path[currentsch]+1);
-    Tcl_VarEval(interp, "puts $gaw_fd {copyvar i(", strtolower(p), strtolower(t),
+    Tcl_VarEval(interp, "puts $gaw_fd {copyvar i(", currentsch>0 ? "v." : "",
+                strtolower(p), strtolower(t),
                ") p0 #", color_str, "}\nvwait gaw_fd\n", NULL);
  }
  my_free(774, &p);