From 160cb66b4bf47fc26743316b07cfbad96c3ee38d Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 27 Oct 2010 13:10:15 +0200
Subject: Renamed TfpgWindowBase.DoEnabledDrops() to DoDNDEnabled()

This will hopefully reduce the confusion between the other
TfpgWidget.AcceptDrops property - they had too similar names.


* Applied rename changes to all other descendants too
* Updated DND demo project
---
 src/corelib/fpg_base.pas    | 2 +-
 src/corelib/gdi/fpg_gdi.pas | 4 ++--
 src/corelib/x11/fpg_x11.pas | 6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/corelib')

diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index c08bea71..143238cf 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -445,7 +445,7 @@ type
     function    DoWindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint; virtual; abstract;
     procedure   DoSetWindowTitle(const ATitle: string); virtual; abstract;
     procedure   DoSetMouseCursor; virtual; abstract;
-    procedure   DoEnableDrops(const AValue: boolean); virtual; abstract;
+    procedure   DoDNDEnabled(const AValue: boolean); virtual; abstract;
     procedure   SetParent(const AValue: TfpgWindowBase); virtual;
     function    GetParent: TfpgWindowBase; virtual;
     function    GetCanvas: TfpgCanvasBase; virtual;
diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas
index ef5251f7..db549a2c 100644
--- a/src/corelib/gdi/fpg_gdi.pas
+++ b/src/corelib/gdi/fpg_gdi.pas
@@ -167,7 +167,7 @@ type
     //procedure MoveToScreenCenter; override;
     procedure   DoSetWindowTitle(const ATitle: string); override;
     procedure   DoSetMouseCursor; override;
-    procedure   DoEnableDrops(const AValue: boolean); override;
+    procedure   DoDNDEnabled(const AValue: boolean); override;
     property    WinHandle: TfpgWinHandle read FWinHandle;
   public
     constructor Create(AOwner: TComponent); override;
@@ -1635,7 +1635,7 @@ begin
   SetCursor(hc);
 end;
 
-procedure TfpgGDIWindow.DoEnableDrops(const AValue: boolean);
+procedure TfpgGDIWindow.DoDNDEnabled(const AValue: boolean);
 begin
   // TODO: still needs to be implemented
 end;
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 9338fddf..9d689f4a 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -230,7 +230,7 @@ type
     function    DoWindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint; override;
     procedure   DoUpdateWindowPosition; override;
     procedure   DoSetMouseCursor; override;
-    procedure   DoEnableDrops(const AValue: boolean); override;
+    procedure   DoDNDEnabled(const AValue: boolean); override;
     property    WinHandle: TfpgWinHandle read FWinHandle;
   public
     constructor Create(AOwner: TComponent); override;
@@ -2130,7 +2130,7 @@ begin
     if QueueEnabledDrops then
     begin
       writeln('QueueEnableDrop....');
-      DoEnableDrops(True);
+      DoDNDEnabled(True);
     end;
   end;
 
@@ -2364,7 +2364,7 @@ begin
   FMouseCursorIsDirty := False;
 end;
 
-procedure TfpgX11Window.DoEnableDrops(const AValue: boolean);
+procedure TfpgX11Window.DoDNDEnabled(const AValue: boolean);
 begin
   // notify XDND protocol that we can handle DND
   if AValue then
-- 
cgit v1.2.3-70-g09d2