From b65bbd21016a990cfd5321a97502554b9928bd5e Mon Sep 17 00:00:00 2001
From: Andy Vawer <andy@vawer.com>
Date: Thu, 18 Jun 2020 15:03:55 +0000
Subject: [PATCH] Fix mouse click on icon which closes window incorrectly
 triggering writeable selection drag

---
 s/Wimp03 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/s/Wimp03 b/s/Wimp03
index cb00247..3a0fbe7 100644
--- a/s/Wimp03
+++ b/s/Wimp03
@@ -1699,6 +1699,9 @@ ptr_iconbar_icon
         LDRNE   R7,mouseflags
         TSTNE   R7,#mf_waitdrag
         ORRNE   R7,R7,#mf_oldcoords     ; avoid missing clicks
+        [ CnP
+        MOVNE   R6,#0                   ; prevent triggering of writeable actions below
+        ]
 
         BNE     waitdrag_action         ; pre-emptive strike!
 
-- 
GitLab