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

control-mouse drag select will negate the setting of enable_stretch tcl variable so drag and control-drag can be swapped vith Options->enable stretch

This commit is contained in:
stefan schippers 2023-09-24 00:29:15 +02:00
parent 4663a86da4
commit 152623f4aa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/callback.c
View File

@ -2901,9 +2901,10 @@ int draw_xhair = tclgetboolvar("draw_crosshair");
if(xctx->semaphore >= 2) break;
if(xctx->ui_state & STARTSELECT) {
if(state & ControlMask) {
tclsetvar("enable_stretch", "1");
int es = tclgetboolvar("enable_stretch");
tclsetboolvar("enable_stretch", !es);
select_rect(END,-1);
tclsetvar("enable_stretch", "0");
tclsetboolvar("enable_stretch", es);
break;
} else {
/* 20150927 filter out button4 and button5 events */