Delete property on begin and at every Notify to start and continue transfer of INCR.

Author: rmottola

ChangeLog

@@ -1,3 +1,9 @@
+2022-02-22 Riccardo Mottola <[email protected]>
+
+	* Tools/xpbs.m (xSelectionNotify:):
+	Delete property on begin and at every Notify to start and continue
+	transfer of INCR.
+
 2020-04-26  Ivan Vucica  <[email protected]>
 
 	* ANNOUNCE:

Tools/xpbs.m

@@ -994,17 +994,22 @@ - (void) xSelectionNotify: (XSelectionEvent*)xEvent
           XEvent event;
           NSMutableData	*imd = nil;
           BOOL wait = YES;
-          
+
+	  // Need to delete the property to start transfer
+	  XDeleteProperty(xDisplay, xEvent->requestor, xEvent->property);
           md = nil;
           while (wait)
             {
               XNextEvent(xDisplay, &event);
-              
+
               if (event.type == PropertyNotify)
                 {
                   if (event.xproperty.state != PropertyNewValue) continue;
-                  
+
                   imd = [self getSelectionData: xEvent type: &actual_type];
+
+		  // delete the property to get the next transfer chunk
+		  XDeleteProperty(xDisplay, xEvent->requestor, xEvent->property);
                   if (imd != nil)
                     {
                       if (md == nil)