From 916027ddba56ed11ded568908a33fe1beb6aeade Mon Sep 17 00:00:00 2001 From: stefan schippers Date: Mon, 22 Sep 2025 17:33:28 +0200 Subject: [PATCH] cleanup code for add and delete waves in graphdialog --- src/scheduler.c | 2 +- src/xschem.tcl | 11 ++++++++--- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/src/scheduler.c b/src/scheduler.c index fbcd96f1..4bf29bea 100644 --- a/src/scheduler.c +++ b/src/scheduler.c @@ -3401,7 +3401,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg if(argc > 5) { char *strcopy = NULL, *strptr = NULL, *saveptr = NULL, *tok; - my_strdup(_ALLOC_ID_, &strcopy, argv[2]); + my_strdup2(_ALLOC_ID_, &strcopy, argv[2]); strptr = strcopy; while( (tok = my_strtok_r(strptr, argv[3], argv[4], atoi(argv[5]), &saveptr)) ) { diff --git a/src/xschem.tcl b/src/xschem.tcl index 480c925c..ecd05872 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -3089,7 +3089,6 @@ proc graph_delete_nodes {} { .graphdialog.center.right.text1 delete 1.0 end .graphdialog.center.right.text1 insert 1.0 $node xschem setprop -fast rect 2 $graph_selected color $col - graph_update_node $node } } @@ -3442,10 +3441,16 @@ proc graph_edit_properties {n} { entry .graphdialog.center.left.search -width 10 entry_replace_selection .graphdialog.center.left.search button .graphdialog.center.left.add -text Add -command { - graph_add_nodes; graph_update_nodelist + graph_add_nodes + if { [xschem get schname] eq $graph_schname } { + graph_update_node [string trim [.graphdialog.center.right.text1 get 1.0 {end - 1 chars}] " \n"] + } } button .graphdialog.center.left.del -text Del -command { - graph_delete_nodes; graph_update_nodelist + graph_delete_nodes + if { [xschem get schname] eq $graph_schname } { + graph_update_node [string trim [.graphdialog.center.right.text1 get 1.0 {end - 1 chars}] " \n"] + } } listbox .graphdialog.center.left.list1 -width 20 -height 5 -selectmode extended \ -yscrollcommand {.graphdialog.center.left.yscroll set} \