type Drag_Action is mod 2 ** 32;
type Drag_Protocol is (Drag_Proto_Motif, Drag_Proto_Xdnd, Drag_Proto_Rootwin, Drag_Proto_None, Drag_Proto_Win32_Dropfiles, Drag_Proto_Ole2, Drag_Proto_Local);
type Drag_Context is new Gdk.C_Proxy;
type Gdk_Atom_Array is array (Natural range <>) of Gdk.Types.Gdk_Atom;
Action_Move : constant Drag_Action;
Action_Link : constant Drag_Action;
Action_Private : constant Drag_Action;
function Get_Actions
| ( | Context | : Drag_Context) return Drag_Action; |
function Get_Suggested_Action
| ( | Context | : Drag_Context) return Drag_Action; |
function Get_Selected_Action
| ( | Context | : Drag_Context) return Drag_Action; |
function Get_Action
| ( | Context | : Drag_Context) return Drag_Action renames Get_Selected_Action; |
function Get_Targets
| ( | Context | : Drag_Context) return Gdk_Atom_Array; |
procedure Drag_Context_Ref
| ( | Context | : Drag_Context); |
procedure Drag_Context_Unref
| ( | Context | : Drag_Context); |
procedure Drag_Status
| ( | Context | : Drag_Context; |
| Action | : Drag_Action; | |
| Time | : Guint32); |
procedure Drop_Reply
| ( | Context | : Drag_Context; |
| Ok | : Boolean; | |
| Time | : Guint32); |
procedure Drop_Finish
| ( | Context | : Drag_Context; |
| Success | : Boolean; | |
| Time | : Guint32); |
function Drag_Get_Selection
| ( | Context | : Drag_Context) return Gdk_Atom; |
function Drag_Begin
| ( | Window | : Gdk.Window.Gdk_Window; |
| Targets | : Target_List) return Drag_Context; |
function Drag_Get_Protocol
| ( | Xid | : Guint32; |
| Protocol | : Drag_Protocol) return Guint32; |
procedure Drag_Find_Window
| ( | Context | : Drag_Context; |
| Drag_Window | : Gdk.Window.Gdk_Window; | |
| X_Root | : Gint; | |
| Y_Root | : Gint; | |
| Dest_Window | : Gdk.Window.Gdk_Window; | |
| Protocol | : Drag_Protocol); |
function Drag_Motion
| ( | Context | : Drag_Context; |
| Dest_Window | : Gdk.Window.Gdk_Window; | |
| Protocol | : Drag_Protocol; | |
| X_Root | : Gint; | |
| Y_Root | : Gint; | |
| Suggested_Action | : Drag_Action; | |
| Possible_Actions | : Drag_Action; | |
| Time | : Guint32) return Boolean; |
procedure Drag_Drop
| ( | Context | : Drag_Context; |
| Time | : Guint32); |
procedure Drag_Abort
| ( | Context | : Drag_Context; |
| Time | : Guint32); |