From 98475e328bc152525d584b04548387fd3bfed47c Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 12 Oct 2024 20:47:34 +0200
Subject: [PATCH] avoid triggering tclcommand -> launcher() when dragging mouse
 with ctrl key around objects with such attribute

---
 src/callback.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/callback.c b/src/callback.c
index c5c9d912..c412077e 100644
--- a/src/callback.c
+++ b/src/callback.c
@@ -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 */