Message_ReleaseEntity

[Tom Hughes]

The attached patch adds a definition of Message_ReleaseEntity now that
it's definition has been made public on c.s.a.programmer.

Tom

-- 
Tom Hughes (tom at compton.nu)
http://www.compton.nu/
-------------- next part --------------
Index: Wimp
===================================================================
RCS file: /home/cvs/riscos/oslib/Source/User/Wimp,v
retrieving revision 1.9
diff -u -r1.9 Wimp
--- Wimp	2001/09/30 10:29:34	1.9
+++ Wimp	2001/10/13 11:38:56
@@ -367,6 +367,7 @@
    Message_DataRequest   = .Bits: 16,
    Message_Dragging      = .Bits: 17,
    Message_DragClaim     = .Bits: 18,
+   Message_ReleaseEntity = .Bits: 19,
    Message_AppControl    = .Bits: 21;
 
 //WIMP messages (these must be cast)
@@ -735,6 +736,11 @@
    Wimp_DragClaimDeleteSource   = Wimp_DragClaimFlags: 0b1000
       "source data should be deleted";
 
+TYPE Wimp_ReleaseFlags = .Bits;
+CONST
+   Wimp_ReleaseClipboard = Wimp_ClaimFlags: 0b100
+      "clipboard being released";
+
 TYPE Wimp_AppControlFlags = .Bits;
 CONST
    Wimp_AppControlImmediate = Wimp_AppControlFlags : 0b1;
@@ -854,6 +860,12 @@
          [58] .Bits: file_types
       ),
 
+   //ReleaseEntity
+   Wimp_MessageReleaseEntity =
+      .Struct
+      (  Wimp_ReleaseFlags: flags
+      ),
+
    //AppControl
    Wimp_MessageAppControl =
       .Struct
@@ -939,6 +951,11 @@
          [58] .Bits: file_types
       ),
 
+   Wimp_FullMessageReleaseEntity =
+      .Struct: Wimp_MessageHeader
+      (  Wimp_ReleaseFlags: flags
+      ),
+
    Wimp_FullMessageAppControl =
       .Struct: Wimp_MessageHeader
       (  .Int: protocol_version,
@@ -1182,6 +1199,9 @@
 
          //DragClaim
          Wimp_MessageDragClaim: drag_claim,
+
+         //ReleaseEntity
+         Wimp_MessageReleaseEntity: release_entity,
 
          //AppControl
          Wimp_MessageAppControl: app_control,