Don't release the clipboard when caret claims go past

Detail:
  Look at the Message_ClaimEntity flags and only release the clipboard
  if it's a clipboard claim, not if the caret flags are set.

Version 2.38. Tagged as 'Paint-2_38'

VersionASM

@@ -9,12 +9,12 @@
                         GBLS    Module_ApplicationDate
                         GBLS    Module_HelpVersion
                         GBLS    Module_ComponentName
-Module_MajorVersion     SETS    "2.37"
-Module_Version          SETA    237
+Module_MajorVersion     SETS    "2.38"
+Module_Version          SETA    238
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "10 Aug 2020"
-Module_ApplicationDate  SETS    "10-Aug-20"
+Module_Date             SETS    "10 Apr 2021"
+Module_ApplicationDate  SETS    "10-Apr-21"
 Module_ComponentName    SETS    "Paint"
-Module_FullVersion      SETS    "2.37"
-Module_HelpVersion      SETS    "2.37 (10 Aug 2020)"
+Module_FullVersion      SETS    "2.38"
+Module_HelpVersion      SETS    "2.38 (10 Apr 2021)"
                         END

VersionNum

-/* (2.37)
+/* (2.38)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        2.37
+#define Module_MajorVersion_CMHG        2.38
 #define Module_MinorVersion_CMHG
-#define Module_Date_CMHG                10 Aug 2020
+#define Module_Date_CMHG                10 Apr 2021
 
-#define Module_MajorVersion             "2.37"
-#define Module_Version                  237
+#define Module_MajorVersion             "2.38"
+#define Module_Version                  238
 #define Module_MinorVersion             ""
-#define Module_Date                     "10 Aug 2020"
+#define Module_Date                     "10 Apr 2021"
 
-#define Module_ApplicationDate          "10-Aug-20"
+#define Module_ApplicationDate          "10-Apr-21"
 
 #define Module_ComponentName            "Paint"
 
-#define Module_FullVersion              "2.37"
-#define Module_HelpVersion              "2.37 (10 Aug 2020)"
-#define Module_LibraryVersionInfo       "2:37"
+#define Module_FullVersion              "2.38"
+#define Module_HelpVersion              "2.38 (10 Apr 2021)"
+#define Module_LibraryVersionInfo       "2:38"

c/Clipboard

@@ -334,8 +334,8 @@ void paint_clipboard_claimed(wimp_eventstr *e)
 
 { /* Claimed... */
   if (e->data.msg.hdr.task == wimpt_task()) return; /* Was us! */
-
-  paint_clipboard_release();
+  if (e->data.msg.data.claimentity.flags & wimp_MCLAIMENTITY_flags_clipboard)
+    paint_clipboard_release();
 }
 
 void paint_clipboard_send_dataload(wimp_eventstr *ev, int buffer_length)