X11: OnDragDrop the Sender and Source parameters are now populated.

Sender: the widget the mouse was over when drop occurs.
Source: If whole DND is inside the same app, then Source is the
        original Widget the DND started from.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 4ccdd24e..0fa561c4 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1226,6 +1226,7 @@ var
   s: variant;
   data: PChar;
   wg: TfpgWidget;
+  swg: TfpgWidget; { source widget that started drag - if drag and drop occur in the same application }
 begin
   {$IFDEF DNDDEBUG}
   writeln('TfpgX11Application.HandleDNDselection');
@@ -1272,7 +1273,14 @@ begin
     if wg.AcceptDrops then
     begin
       if Assigned(wg.OnDragDrop) then
-        wg.OnDragDrop(nil, nil, FDropPos.X, FDropPos.Y, s);
+      begin
+        if Assigned(uDragSource) then
+          swg := uDragSource as TfpgWidget
+        else
+          swg := nil;
+        wg.OnDragDrop(wg, swg, FDropPos.X, FDropPos.Y, s);
+        uDragSource := nil; { reset variable for the next DND action }
+      end;
     end;
   end;
   {$IFDEF DNDDEBUG}