package Gdk.Drag_Contexts is
package Gdk_Drag_Action_Properties is new Generic_Internal_Discrete_Property (Gdk_Drag_Action);
package Gdk_Drag_Protocol_Properties is new Generic_Internal_Discrete_Property (Gdk_Drag_Protocol);
type Drag_Context_Record is new GObject_Record with null record;
type Drag_Context is access all Drag_Context_Record'Class;
type Gdk_Drag_Protocol is ( Drag_Proto_None, Drag_Proto_Motif, Drag_Proto_Xdnd, Drag_Proto_Rootwin, Drag_Proto_Win32_Dropfiles, Drag_Proto_Ole2, Drag_Proto_Local);
type Property_Gdk_Drag_Action is new Gdk_Drag_Action_Properties.Property;
type Property_Gdk_Drag_Protocol is new Gdk_Drag_Protocol_Properties.Property;
Action_Default : constant Gdk_Drag_Action := 1;
Action_Copy : constant Gdk_Drag_Action := 2;
Action_Move : constant Gdk_Drag_Action := 4;
Action_Link : constant Gdk_Drag_Action := 8;
Action_Private : constant Gdk_Drag_Action := 16;
Action_Ask : constant Gdk_Drag_Action := 32;
function Get_Type return Glib.GType;
function Get_Actions
( | Self | : not null access Drag_Context_Record) return Gdk_Drag_Action; |
function Get_Dest_Window
( | Self | : not null access Drag_Context_Record) return Gdk.Gdk_Window; |
function Get_Device
( | Self | : not null access Drag_Context_Record) return Gdk.Device.Gdk_Device; |
procedure Set_Device
( | Self | : not null access Drag_Context_Record; |
Device | : not null access Gdk.Device.Gdk_Device_Record'Class); |
function Get_Protocol
( | Self | : not null access Drag_Context_Record) return Gdk_Drag_Protocol; |
function Get_Selected_Action
( | Self | : not null access Drag_Context_Record) return Gdk_Drag_Action; |
function Get_Source_Window
( | Self | : not null access Drag_Context_Record) return Gdk.Gdk_Window; |
function Get_Suggested_Action
( | Self | : not null access Drag_Context_Record) return Gdk_Drag_Action; |