avoid triggering tclcommand -> launcher() when dragging mouse with ctrl key around objects with such attribute

This commit is contained in:
stefan schippers 2024-10-12 20:47:34 +02:00
parent d387bb911d
commit 98475e328b
1 changed files with 2 additions and 1 deletions

View File

@ -3837,7 +3837,8 @@ int rstate; /* (reduced state, without ShiftMask) */
/* launcher, no intuitive interface */
if(!xctx->intuitive_interface && state == (Button1Mask | ControlMask)) {
if(!xctx->intuitive_interface && state == (Button1Mask | ControlMask) &&
!xctx->shape_point_selected && xctx->mouse_moved == 0) {
int savesem = xctx->semaphore;
xctx->semaphore = 0;
launcher(); /* works only if lastsel == 1 */