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); |