From a4b14f1174146845b9623240fb3fe780ee50585d Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 22 Sep 2010 10:24:41 +0200
Subject: Two new MouseCursor shapes added. mcDrag & mcNoDrop

* X11 DND now changes the mouse cursor depending if a drop target is
  available or not
---
 src/corelib/x11/fpg_x11.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/corelib/x11')

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index f6e33236..549c6a80 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -2283,6 +2283,8 @@ begin
     mcCross:      shape := XC_crosshair;
     mcHourGlass:  shape := XC_watch;
     mcHand:       shape := XC_hand2;
+    mcDrag:       shape := XC_target;
+    mcNoDrop:     shape := XC_pirate;
   else
     shape := XC_left_ptr; //XC_arrow;
   end;
@@ -3292,12 +3294,14 @@ begin
       FDropAccepted := True;
       FAcceptedAction := AAction;
       { TODO: Change mouse cursor to show drop accepted/valid }
+      FSource.MouseCursor := mcDrag;
     end
     else
     begin
       FDropAccepted := False;
       FAcceptedAction := X.None;
       { TODO: change mouse cursor to show drop not valid }
+      FSource.MouseCursor := mcNoDrop;
     end;
   end;
   { TODO: If we waited to long, we have a timeout }
-- 
cgit v1.2.3-70-g09d2