luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

launchers: tclcommand attribute defined in the symbol will be used if no instance tclcommand attribute found

This commit is contained in:
stefan schippers 2026-01-24 19:51:01 +01:00
parent aadb87d255
commit 0c25490c9d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/actions.c
View File

@ -1854,6 +1854,7 @@ void launcher(void)
tcleval("update");
if(xctx->lastsel ==1)
{
size_t tclcommand_found;
double mx=xctx->mousex, my=xctx->mousey;
n=xctx->sel_array[0].n;
c=xctx->sel_array[0].col;
@ -1864,7 +1865,12 @@ void launcher(void)
else if(xctx->sel_array[0].type==LINE) prop_ptr = xctx->line[c][n].prop_ptr;
else if(xctx->sel_array[0].type==WIRE) prop_ptr = xctx->wire[n].prop_ptr;
else if(xctx->sel_array[0].type==xTEXT) prop_ptr = xctx->text[n].prop_ptr;
my_strdup2(_ALLOC_ID_, &command, get_tok_value(prop_ptr,"tclcommand",0));
my_strdup2(_ALLOC_ID_, &command, get_tok_value(prop_ptr, "tclcommand", 0));
tclcommand_found = xctx->tok_size;
if(!tclcommand_found && xctx->sel_array[0].type==ELEMENT) {
xSymbol *sym = xctx->inst[n].ptr + xctx->sym;
my_strdup2(_ALLOC_ID_, &command, get_tok_value(sym->prop_ptr, "tclcommand", 0));
}
if(strchr(command, '@')) {
my_strdup2(_ALLOC_ID_, &command, translate3(command, 1, prop_ptr, NULL, NULL, NULL));
if(xctx->sel_array[0].type==ELEMENT) {