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

add command `xschem swap_cursors`

This commit is contained in:
stefan schippers 2024-05-21 23:46:00 +02:00
parent 8067f58b43
commit 7cd7d16f6a
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/scheduler.c
View File

@ -2246,7 +2246,6 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
* {C1} {capa.sym} 150 150 1 1 */
else if(!strcmp(argv[1], "instance_coord"))
{
/* xschem instances_to_net PLUS */
xSymbol *symbol;
short flip, rot;
double x0,y0;
@ -2502,7 +2501,6 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
* { {Vpanel1} {minus} {600} {-440} } */
else if(!strcmp(argv[1], "instances_to_net"))
{
/* xschem instances_to_net PLUS */
xSymbol *symbol;
xRect *rct;
double pinx0, piny0;
@ -5302,6 +5300,31 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
Tcl_ResetResult(interp);
}
/* swap_cursors
* swap cursor A (1) and cursor B (2) positions.
*/
else if(!strcmp(argv[1], "swap_cursors"))
{
xRect *r;
Graph_ctx *gr;
double tmp;
int floaters = there_are_floaters();
if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
if(xctx->rects[GRIDLAYER] > 0) {
r = &xctx->rect[GRIDLAYER][0];
gr = &xctx->graph_struct;
setup_graph_data(0, 0, gr);
tmp = xctx->graph_cursor2_x;
xctx->graph_cursor2_x = xctx->graph_cursor1_x;
xctx->graph_cursor1_x = tmp;
if(tclgetboolvar("live_cursor2_backannotate")) {
backannotate_at_cursor_b_pos(r, gr);
if(floaters) set_modify(-2); /* update floater caches to reflect actual backannotation */
}
draw();
}
}
/* swap_windows
* swap first and second window in window interface (internal command)
*/