From 152623f4aaf5607067d8c05fecb2ba89a5299ea7 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 24 Sep 2023 00:29:15 +0200
Subject: [PATCH] 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

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

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