File: gdk-event.ads

------------------------------------------------------------------------------

--                                                                          --

--      Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet       --

--                     Copyright (C) 2000-2014, AdaCore                     --

--                                                                          --

-- This library is free software;  you can redistribute it and/or modify it --

-- under terms of the  GNU General Public License  as published by the Free --

-- Software  Foundation;  either version 3,  or (at your  option) any later --

-- version. This library is distributed in the hope that it will be useful, --

-- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- --

-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.                            --

--                                                                          --

-- As a special exception under Section 7 of GPL version 3, you are granted --

-- additional permissions described in the GCC Runtime Library Exception,   --

-- version 3.1, as published by the Free Software Foundation.               --

--                                                                          --

-- You should have received a copy of the GNU General Public License and    --

-- a copy of the GCC Runtime Library Exception along with this program;     --

-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --

-- <http://www.gnu.org/licenses/>.                                          --

--                                                                          --

------------------------------------------------------------------------------

```
 
```
```
--  <description> 
```

--  The Gdk.Event.Gdk_Event struct contains a union of all of the event

--  structs, and allows access to the data fields in a number of ways.

```
-- 
```

--  The event type is always the first field in all of the event structs, and

--  can always be accessed with the following code, no matter what type of

```
--  event it is: 
```
```
-- 
```
```
--    GdkEvent *event; 
```
```
--    GdkEventType type; 
```
```
--    type = event->type; 
```
```
-- 
```

--  To access other fields of the event structs, the pointer to the event can

--  be cast to the appropriate event struct pointer, or the union member name

--  can be used. For example if the event type is Gdk.Event.Button_Press then

--  the x coordinate of the button press can be accessed with:

```
-- 
```
```
--    GdkEvent *event; 
```
```
--    gdouble x; 
```
```
--    x = ((GdkEventButton*)event)->x; 
```
```
-- 
```
```
--  or: 
```
```
-- 
```
```
--    GdkEvent *event; 
```
```
--    gdouble x; 
```
```
--    x = event->button.x; 
```
```
-- 
```
```
-- 
```
```
--  </description> 
```

--  <group>Gdk, the low-level API</group>

```
pragma Ada_2005; 
```
```
 
```

pragma Warnings (Off, "*is already use-visible*");

with Cairo.RegionTo API doc
To spec
To body;            use Cairo.RegionTo API doc
To spec
To body;

with GdkTo API doc
To spec;                     use GdkTo API doc
To spec;

with Gdk.RectangleTo API doc
To spec
To body;           use Gdk.RectangleTo API doc
To spec
To body;

with Gdk.TypesTo API doc
To spec;               use Gdk.TypesTo API doc
To spec;

with GlibTo API doc
To spec
To body;                    use GlibTo API doc
To spec
To body;

with Glib.Generic_PropertiesTo API doc
To spec
To body; use Glib.Generic_PropertiesTo API doc
To spec
To body;

with Glib.ValuesTo API doc
To spec
To body;             use Glib.ValuesTo API doc
To spec
To body;

with Interfaces.C.Strings;    use Interfaces.C.Strings;

```
 
```

package Gdk.EventTo API doc
To spec
To body is

```
 
```
```
   type Gdk_Event_Type is ( 
```
```
      Nothing, 
```
```
      Delete, 
```
```
      Destroy, 
```
```
      Expose, 
```
```
      Motion_Notify, 
```
```
      Button_Press, 
```
```
      Gdk_2button_Press, 
```
```
      Gdk_3button_Press, 
```
```
      Button_Release, 
```
```
      Key_Press, 
```
```
      Key_Release, 
```
```
      Enter_Notify, 
```
```
      Leave_Notify, 
```
```
      Focus_Change, 
```
```
      Configure, 
```
```
      Map, 
```
```
      Unmap, 
```
```
      Property_Notify, 
```
```
      Selection_Clear, 
```
```
      Selection_Request, 
```
```
      Selection_Notify, 
```
```
      Proximity_In, 
```
```
      Proximity_Out, 
```
```
      Drag_Enter, 
```
```
      Drag_Leave, 
```
```
      Drag_Motion, 
```
```
      Drag_Status, 
```
```
      Drop_Start, 
```
```
      Drop_Finished, 
```
```
      Client_Event, 
```
```
      Visibility_Notify, 
```
```
      Scroll, 
```
```
      Window_State, 
```
```
      Setting, 
```
```
      Owner_Change, 
```
```
      Grab_Broken, 
```
```
      Damage, 
```
```
      Touch_Begin, 
```
```
      Touch_Update, 
```
```
      Touch_End, 
```
```
      Touch_Cancel); 
```

   pragma Convention (C, Gdk_Event_TypeTo API doc
To spec);

   --  Specifies the type of the event.

```
   -- 
```

   --  Do not confuse these events with the signals that GTK+ widgets emit.

   --  Although many of these events result in corresponding signals being

   --  emitted, the events are often transformed or filtered along the way.

```
   -- 
```

   --  In some language bindings, the values Gdk.Event.Gdk_2button_Press and

   --  Gdk.Event.Gdk_3button_Press would translate into something syntactically

   --  invalid (eg 'Gdk.EventType.2ButtonPress', where a symbol is not allowed

   --  to start with a number). In that case, the aliases

   --  GDK_DOUBLE_BUTTON_PRESS and GDK_TRIPLE_BUTTON_PRESS can be used instead.

```
 
```

   for Gdk_Event_TypeTo API doc
To spec use (

```
      Nothing => -1, 
```
```
      Delete => 0, 
```
```
      Destroy => 1, 
```
```
      Expose => 2, 
```
```
      Motion_Notify => 3, 
```
```
      Button_Press => 4, 
```
```
      Gdk_2button_Press => 5, 
```
```
      Gdk_3button_Press => 6, 
```
```
      Button_Release => 7, 
```
```
      Key_Press => 8, 
```
```
      Key_Release => 9, 
```
```
      Enter_Notify => 10, 
```
```
      Leave_Notify => 11, 
```
```
      Focus_Change => 12, 
```
```
      Configure => 13, 
```
```
      Map => 14, 
```
```
      Unmap => 15, 
```
```
      Property_Notify => 16, 
```
```
      Selection_Clear => 17, 
```
```
      Selection_Request => 18, 
```
```
      Selection_Notify => 19, 
```
```
      Proximity_In => 20, 
```
```
      Proximity_Out => 21, 
```
```
      Drag_Enter => 22, 
```
```
      Drag_Leave => 23, 
```
```
      Drag_Motion => 24, 
```
```
      Drag_Status => 25, 
```
```
      Drop_Start => 26, 
```
```
      Drop_Finished => 27, 
```
```
      Client_Event => 28, 
```
```
      Visibility_Notify => 29, 
```
```
      Scroll => 31, 
```
```
      Window_State => 32, 
```
```
      Setting => 33, 
```
```
      Owner_Change => 34, 
```
```
      Grab_Broken => 35, 
```
```
      Damage => 36, 
```
```
      Touch_Begin => 37, 
```
```
      Touch_Update => 38, 
```
```
      Touch_End => 39, 
```
```
      Touch_Cancel => 40); 
```
```
 
```

   type Gdk_Event_Mask is mod 2 ** Integer'Size;

   pragma Convention (C, Gdk_Event_MaskTo API doc
To spec);

   --  A set of bit-flags to indicate which events a window is to receive.

   --  Most of these masks map onto one or more of the Gdk.Event.Gdk_Event_Type

```
   --  event types above. 
```
```
   -- 
```

   --  Gdk.Event.Pointer_Motion_Hint_Mask is a special mask which is used to

   --  reduce the number of Gdk.Event.Motion_Notify events received. Normally a

   --  Gdk.Event.Motion_Notify event is received each time the mouse moves.

   --  However, if the application spends a lot of time processing the event

   --  (updating the display, for example), it can lag behind the position of

   --  the mouse. When using Gdk.Event.Pointer_Motion_Hint_Mask, fewer

   --  Gdk.Event.Motion_Notify events will be sent, some of which are marked as

   --  a hint (the is_hint member is True). To receive more motion events after

   --  a motion hint event, the application needs to asks for more, by calling

```
   --  Gdk.Event.Request_Motions. 
```
```
   -- 
```

   --  If Gdk.Event.Touch_Mask is enabled, the window will receive touch

   --  events from touch-enabled devices. Those will come as sequences of

   --  Gdk.Event.Gdk_Event_Touch with type Gdk.Event.Touch_Update, enclosed by

   --  two events with type Gdk.Event.Touch_Begin and Gdk.Event.Touch_End (or

   --  Gdk.Event.Touch_Cancel). Gdk.Event.Get_Event_Sequence returns the event

   --  sequence for these events, so different sequences may be distinguished.

```
 
```

   Exposure_Mask : constant Gdk_Event_MaskTo API doc
To spec := 2;

   Pointer_Motion_Mask : constant Gdk_Event_MaskTo API doc
To spec := 4;

   Pointer_Motion_Hint_Mask : constant Gdk_Event_MaskTo API doc
To spec := 8;

   Button_Motion_Mask : constant Gdk_Event_MaskTo API doc
To spec := 16;

   Button1_Motion_Mask : constant Gdk_Event_MaskTo API doc
To spec := 32;

   Button2_Motion_Mask : constant Gdk_Event_MaskTo API doc
To spec := 64;

   Button3_Motion_Mask : constant Gdk_Event_MaskTo API doc
To spec := 128;

   Button_Press_Mask : constant Gdk_Event_MaskTo API doc
To spec := 256;

   Button_Release_Mask : constant Gdk_Event_MaskTo API doc
To spec := 512;

   Key_Press_Mask : constant Gdk_Event_MaskTo API doc
To spec := 1024;

   Key_Release_Mask : constant Gdk_Event_MaskTo API doc
To spec := 2048;

   Enter_Notify_Mask : constant Gdk_Event_MaskTo API doc
To spec := 4096;

   Leave_Notify_Mask : constant Gdk_Event_MaskTo API doc
To spec := 8192;

   Focus_Change_Mask : constant Gdk_Event_MaskTo API doc
To spec := 16384;

   Structure_Mask : constant Gdk_Event_MaskTo API doc
To spec := 32768;

   Property_Change_Mask : constant Gdk_Event_MaskTo API doc
To spec := 65536;

   Visibility_Notify_Mask : constant Gdk_Event_MaskTo API doc
To spec := 131072;

   Proximity_In_Mask : constant Gdk_Event_MaskTo API doc
To spec := 262144;

   Proximity_Out_Mask : constant Gdk_Event_MaskTo API doc
To spec := 524288;

   Substructure_Mask : constant Gdk_Event_MaskTo API doc
To spec := 1048576;

   Scroll_Mask : constant Gdk_Event_MaskTo API doc
To spec := 2097152;

   Touch_Mask : constant Gdk_Event_MaskTo API doc
To spec := 4194304;

   Smooth_Scroll_Mask : constant Gdk_Event_MaskTo API doc
To spec := 8388608;

   All_Events_Mask : constant Gdk_Event_MaskTo API doc
To spec := 16777214;

```
 
```
```
   type Gdk_Visibility_State is ( 
```
```
      Visibility_Unobscured, 
```
```
      Visibility_Partial, 
```
```
      Visibility_Fully_Obscured); 
```

   pragma Convention (C, Gdk_Visibility_StateTo API doc
To spec);

   --  Specifies the visiblity status of a window for a

```
   --  Gdk.Event.Gdk_Event_Visibility. 
```
```
 
```
```
   type Gdk_Scroll_Direction is ( 
```
```
      Scroll_Up, 
```
```
      Scroll_Down, 
```
```
      Scroll_Left, 
```
```
      Scroll_Right, 
```
```
      Scroll_Smooth); 
```

   pragma Convention (C, Gdk_Scroll_DirectionTo API doc
To spec);

   --  Specifies the direction for Gdk.Event.Gdk_Event_Scroll.

```
 
```
```
   type Gdk_Notify_Type is ( 
```
```
      Notify_Ancestor, 
```
```
      Notify_Virtual, 
```
```
      Notify_Inferior, 
```
```
      Notify_Nonlinear, 
```
```
      Notify_Nonlinear_Virtual, 
```
```
      Notify_Unknown); 
```

   pragma Convention (C, Gdk_Notify_TypeTo API doc
To spec);

   --  Specifies the kind of crossing for Gdk.Event.Gdk_Event_Crossing.

```
   -- 
```

   --  See the X11 protocol specification of <type>LeaveNotify</type> for full

   --  details of crossing event generation.

```
 
```
```
   type Gdk_Crossing_Mode is ( 
```
```
      Crossing_Normal, 
```
```
      Crossing_Grab, 
```
```
      Crossing_Ungrab, 
```
```
      Crossing_Gtk_Grab, 
```
```
      Crossing_Gtk_Ungrab, 
```
```
      Crossing_State_Changed, 
```
```
      Crossing_Touch_Begin, 
```
```
      Crossing_Touch_End, 
```
```
      Crossing_Device_Switch); 
```

   pragma Convention (C, Gdk_Crossing_ModeTo API doc
To spec);

   --  Specifies the crossing mode for Gdk.Event.Gdk_Event_Crossing.

```
 
```
```
   type Gdk_Property_State is ( 
```
```
      Property_New_Value, 
```
```
      Property_Delete); 
```

   pragma Convention (C, Gdk_Property_StateTo API doc
To spec);

   --  Specifies the type of a property change for a

```
   --  Gdk.Event.Gdk_Event_Property. 
```
```
 
```

   type Gdk_Window_State is mod 2 ** Integer'Size;

   pragma Convention (C, Gdk_Window_StateTo API doc
To spec);

   --  Specifies the state of a toplevel window.

```
 
```

   Window_State_Withdrawn : constant Gdk_Window_StateTo API doc
To spec := 1;

   Window_State_Iconified : constant Gdk_Window_StateTo API doc
To spec := 2;

   Window_State_Maximized : constant Gdk_Window_StateTo API doc
To spec := 4;

   Window_State_Sticky : constant Gdk_Window_StateTo API doc
To spec := 8;

   Window_State_Fullscreen : constant Gdk_Window_StateTo API doc
To spec := 16;

   Window_State_Above : constant Gdk_Window_StateTo API doc
To spec := 32;

   Window_State_Below : constant Gdk_Window_StateTo API doc
To spec := 64;

   Window_State_Focused : constant Gdk_Window_StateTo API doc
To spec := 128;

```
 
```
```
   type Gdk_Setting_Action is ( 
```
```
      Setting_Action_New, 
```
```
      Setting_Action_Changed, 
```
```
      Setting_Action_Deleted); 
```

   pragma Convention (C, Gdk_Setting_ActionTo API doc
To spec);

   --  Specifies the kind of modification applied to a setting in a

```
   --  Gdk.Event.Gdk_Event_Setting. 
```
```
 
```
```
   type Gdk_Owner_Change is ( 
```
```
      Owner_Change_New_Owner, 
```
```
      Owner_Change_Destroy, 
```
```
      Owner_Change_Close); 
```

   pragma Convention (C, Gdk_Owner_ChangeTo API doc
To spec);

   --  Specifies why a selection ownership was changed.

```
 
```
```
   type Gdk_Event_Any is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_AnyTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_AnyTo API doc
To spec) return Gdk_Event_AnyTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Contains the fields which are common to all event structs. Any event

   --  pointer can safely be cast to a pointer to a Gdk.Event.Gdk_Event_Any to

```
   --  access these fields. 
```
```
 
```
```
   type Gdk_Event_Button is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```
```
      X : GdoubleTo API doc
To spec; 
```
```
      Y : GdoubleTo API doc
To spec; 
```

      Axes : access GdoubleTo API doc
To spec;

      State : Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

```
      Button : GuintTo API doc
To spec; 
```
```
      Device : System.Address; 
```

      X_Root : GdoubleTo API doc
To spec;

      Y_Root : GdoubleTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_ButtonTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_ButtonTo API doc
To spec) return Gdk_Event_ButtonTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Used for button press and button release events. The Type field will be

   --  one of Gdk.Event.Button_Press, Gdk.Event.Gdk_2button_Press,

   --  Gdk.Event.Gdk_3button_Press or Gdk.Event.Button_Release,

```
   -- 
```

   --  Double and triple-clicks result in a sequence of events being received.

   --  For double-clicks the order of events will be:

```
   -- 
```
```
   --     * Gdk.Event.Button_Press 
```
```
   -- 
```
```
   --     * Gdk.Event.Button_Release 
```
```
   -- 
```
```
   --     * Gdk.Event.Button_Press 
```
```
   -- 
```

   --     * Gdk.Event.Gdk_2button_Press

```
   -- 
```
```
   --     * Gdk.Event.Button_Release 
```
```
   -- 
```

   --  Note that the first click is received just like a normal button press,

   --  while the second click results in a Gdk.Event.Gdk_2button_Press being

   --  received just after the Gdk.Event.Button_Press.

```
   -- 
```

   --  Triple-clicks are very similar to double-clicks, except that

   --  Gdk.Event.Gdk_3button_Press is inserted after the third click. The order

```
   --  of the events is: 
```
```
   -- 
```
```
   --     * Gdk.Event.Button_Press 
```
```
   -- 
```
```
   --     * Gdk.Event.Button_Release 
```
```
   -- 
```
```
   --     * Gdk.Event.Button_Press 
```
```
   -- 
```

   --     * Gdk.Event.Gdk_2button_Press

```
   -- 
```
```
   --     * Gdk.Event.Button_Release 
```
```
   -- 
```
```
   --     * Gdk.Event.Button_Press 
```
```
   -- 
```

   --     * Gdk.Event.Gdk_3button_Press

```
   -- 
```
```
   --     * Gdk.Event.Button_Release 
```
```
   -- 
```

   --  For a double click to occur, the second button press must occur within

   --  1/4 of a second of the first. For a triple click to occur, the third

   --  button press must also occur within 1/2 second of the first button

```
   --  press. 
```
```
 
```
```
   type Gdk_Event_Expose is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Area : Gdk.Rectangle.Gdk_RectangleTo API doc
To spec;

      Region : Cairo.Region.Cairo_RegionTo API doc
To spec;

```
      Count : GintTo API doc
To spec; 
```
```
   end record; 
```

   pragma Convention (C, Gdk_Event_ExposeTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_ExposeTo API doc
To spec) return Gdk_Event_ExposeTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when all or part of a window becomes visible and needs to be

```
   --  redrawn. 
```
```
 
```
```
   type Gdk_Event_Visibility is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      State : Gdk_Visibility_StateTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_VisibilityTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_VisibilityTo API doc
To spec) return Gdk_Event_VisibilityTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when the window visibility status has changed.

```
 
```
```
   type Gdk_Event_Motion is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```
```
      X : GdoubleTo API doc
To spec; 
```
```
      Y : GdoubleTo API doc
To spec; 
```

      Axes : access GdoubleTo API doc
To spec;

      State : Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

      Is_Hint : Gint16To API doc
To spec;

```
      Device : System.Address; 
```

      X_Root : GdoubleTo API doc
To spec;

      Y_Root : GdoubleTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_MotionTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_MotionTo API doc
To spec) return Gdk_Event_MotionTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when the pointer moves.

```
 
```
```
   type Gdk_Event_Scroll is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```
```
      X : GdoubleTo API doc
To spec; 
```
```
      Y : GdoubleTo API doc
To spec; 
```

      State : Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

      Direction : Gdk_Scroll_DirectionTo API doc
To spec;

```
      Device : System.Address; 
```

      X_Root : GdoubleTo API doc
To spec;

      Y_Root : GdoubleTo API doc
To spec;

      Delta_X : GdoubleTo API doc
To spec;

      Delta_Y : GdoubleTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_ScrollTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_ScrollTo API doc
To spec) return Gdk_Event_ScrollTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated from button presses for the buttons 4 to 7. Wheel mice are

   --  usually configured to generate button press events for buttons 4 and 5

```
   --  when the wheel is turned. 
```
```
   -- 
```

   --  Some GDK backends can also generate 'smooth' scroll events, which can

   --  be recognized by the Gdk.Event.Scroll_Smooth scroll direction. For

   --  these, the scroll deltas can be obtained with

```
   --  Gdk.Event.Get_Scroll_Deltas. 
```
```
 
```
```
   type Gdk_Event_Key is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```

      State : Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

      Keyval : Gdk.Types.Gdk_Key_TypeTo API doc
To spec;

```
      Length : GintTo API doc
To spec; 
```

      String : Interfaces.C.Strings.chars_ptr;

      Hardware_Keycode : Guint16To API doc
To spec;

```
      Group : Guint8To API doc
To spec; 
```

      Is_Modifier : GuintTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_KeyTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_KeyTo API doc
To spec) return Gdk_Event_KeyTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Describes a key press or key release event.

```
 
```
```
   type Gdk_Event_Crossing is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Subwindow : Gdk.Gdk_WindowTo API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```
```
      X : GdoubleTo API doc
To spec; 
```
```
      Y : GdoubleTo API doc
To spec; 
```

      X_Root : GdoubleTo API doc
To spec;

      Y_Root : GdoubleTo API doc
To spec;

      Mode : Gdk_Crossing_ModeTo API doc
To spec;

      Detail : Gdk_Notify_TypeTo API doc
To spec;

```
      Focus : Boolean; 
```

      State : Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_CrossingTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_CrossingTo API doc
To spec) return Gdk_Event_CrossingTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when the pointer enters or leaves a window.

```
 
```
```
   type Gdk_Event_Focus is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Gtk_In : Gint16To API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_FocusTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_FocusTo API doc
To spec) return Gdk_Event_FocusTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Describes a change of keyboard focus.

```
 
```
```
   type Gdk_Event_Configure is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      X : GintTo API doc
To spec; 
```
```
      Y : GintTo API doc
To spec; 
```
```
      Width : GintTo API doc
To spec; 
```
```
      Height : GintTo API doc
To spec; 
```
```
   end record; 
```

   pragma Convention (C, Gdk_Event_ConfigureTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_ConfigureTo API doc
To spec) return Gdk_Event_ConfigureTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when a window size or position has changed.

```
 
```
```
   type Gdk_Event_Property is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Atom : Gdk.Types.Gdk_AtomTo API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```

      State : Gdk_Property_StateTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_PropertyTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_PropertyTo API doc
To spec) return Gdk_Event_PropertyTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Describes a property change on a window.

```
 
```
```
   type Gdk_Event_Selection is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Selection : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Target : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Property : Gdk.Types.Gdk_AtomTo API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```

      Requestor : Gdk.Gdk_WindowTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_SelectionTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_SelectionTo API doc
To spec) return Gdk_Event_SelectionTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when a selection is requested or ownership of a selection is

   --  taken over by another client application.

```
 
```

   type Gdk_Event_Owner_Change is record

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Owner : Gdk.Gdk_WindowTo API doc
To spec;

      Reason : Gdk_Owner_ChangeTo API doc
To spec;

      Selection : Gdk.Types.Gdk_AtomTo API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```

      Selection_Time : Guint32To API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_Owner_ChangeTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_Owner_ChangeTo API doc
To spec) return Gdk_Event_Owner_ChangeTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when the owner of a selection changes. On X11, this

   --  information is only available if the X server supports the XFIXES

```
   --  extension. 
```
```
 
```
```
   type Gdk_Event_Proximity is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```
```
      Device : System.Address; 
```
```
   end record; 
```

   pragma Convention (C, Gdk_Event_ProximityTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_ProximityTo API doc
To spec) return Gdk_Event_ProximityTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Proximity events are generated when using GDK's wrapper for the XInput

   --  extension. The XInput extension is an add-on for standard X that allows

   --  you to use nonstandard devices such as graphics tablets. A proximity

   --  event indicates that the stylus has moved in or out of contact with the

   --  tablet, or perhaps that the user's finger has moved in or out of contact

```
   --  with a touch screen. 
```
```
   -- 
```

   --  This event type will be used pretty rarely. It only is important for

   --  XInput aware programs that are drawing their own cursor.

```
 
```
```
   type Gdk_Event_DND is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Context : System.Address; 
```
```
      Time : Guint32To API doc
To spec; 
```

      X_Root : GshortTo API doc
To spec;

      Y_Root : GshortTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_DNDTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_DNDTo API doc
To spec) return Gdk_Event_DNDTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated during DND operations.

```
 
```

   type Gdk_Event_Window_State is record

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Changed_Mask : Gdk_Window_StateTo API doc
To spec;

      New_Window_State : Gdk_Window_StateTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_Window_StateTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_Window_StateTo API doc
To spec) return Gdk_Event_Window_StateTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when the state of a toplevel window changes.

```
 
```
```
   type Gdk_Event_Setting is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

      Action : Gdk_Setting_ActionTo API doc
To spec;

      Name : Interfaces.C.Strings.chars_ptr;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_SettingTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_SettingTo API doc
To spec) return Gdk_Event_SettingTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when a setting is modified.

```
 
```
```
   type Gdk_Event_Touch is record 
```

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Time : Guint32To API doc
To spec; 
```
```
      X : GdoubleTo API doc
To spec; 
```
```
      Y : GdoubleTo API doc
To spec; 
```

      Axes : access GdoubleTo API doc
To spec;

      State : Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

```
      Sequence : System.Address; 
```
```
      Emulating_Pointer : Boolean; 
```
```
      Device : System.Address; 
```

      X_Root : GdoubleTo API doc
To spec;

      Y_Root : GdoubleTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_TouchTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_TouchTo API doc
To spec) return Gdk_Event_TouchTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Used for touch events. Type field will be one of Gdk.Event.Touch_Begin,

   --  Gdk.Event.Touch_Update, Gdk.Event.Touch_End or Gdk.Event.Touch_Cancel.

```
   -- 
```

   --  Touch events are grouped into sequences by means of the Sequence field,

   --  which can also be obtained with Gdk.Event.Get_Event_Sequence. Each

   --  sequence begins with a Gdk.Event.Touch_Begin event, followed by any

   --  number of Gdk.Event.Touch_Update events, and ends with a

   --  Gdk.Event.Touch_End (or Gdk.Event.Touch_Cancel) event. With multitouch

   --  devices, there may be several active sequences at the same time.

```
 
```

   type Gdk_Event_Sequence is new Glib.C_ProxyTo API doc
To spec;

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_SequenceTo API doc
To spec) return Gdk_Event_SequenceTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

```
 
```
```
 
```

   type Gdk_Event_Grab_Broken is record

      The_Type : Gdk_Event_TypeTo API doc
To spec;

      Window : Gdk.Gdk_WindowTo API doc
To spec;

      Send_Event : Gint8To API doc
To spec;

```
      Keyboard : Boolean; 
```
```
      Implicit : Boolean; 
```

      Grab_Window : Gdk.Gdk_WindowTo API doc
To spec;

```
   end record; 
```

   pragma Convention (C, Gdk_Event_Grab_BrokenTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_Grab_BrokenTo API doc
To spec) return Gdk_Event_Grab_BrokenTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  Generated when a pointer or keyboard grab is broken. On X11, this

   --  happens when the grab window becomes unviewable (i.e. it or one of its

   --  ancestors is unmapped), or if the same application grabs the pointer or

   --  keyboard again. Note that implicit grabs (which are initiated by button

   --  presses) can also cause Gdk.Event.Gdk_Event_Grab_Broken events.

```
 
```

   type Gdk_Event_Record (The_Type : Gdk_Event_TypeTo API doc
To spec := Gdk.Event.Nothing) is record

```
      case The_Type is 
```
```
 
```
```
         when Gdk.Event.Nothing 
```
```
         | Gdk.Event.Delete 
```
```
         | Gdk.Event.Destroy 
```
```
         | Gdk.Event.Map 
```
```
         | Gdk.Event.Unmap 
```
```
         | Gdk.Event.Client_Event => 
```

         Any : Gdk_Event_AnyTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Expose 
```
```
         | Gdk.Event.Damage => 
```

         Expose : Gdk_Event_ExposeTo API doc
To spec;

```
 
```

         when Gdk.Event.Visibility_Notify =>

         Visibility : Gdk_Event_VisibilityTo API doc
To spec;

```
 
```

         when Gdk.Event.Motion_Notify =>

         Motion : Gdk_Event_MotionTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Button_Press 
```
```
         | Gdk.Event.Gdk_2button_Press 
```
```
         | Gdk.Event.Gdk_3button_Press 
```
```
         | Gdk.Event.Button_Release => 
```

         Button : Gdk_Event_ButtonTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Touch_Begin 
```
```
         | Gdk.Event.Touch_Update 
```
```
         | Gdk.Event.Touch_End 
```
```
         | Gdk.Event.Touch_Cancel => 
```

         Touch : Gdk_Event_TouchTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Scroll => 
```

         Scroll : Gdk_Event_ScrollTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Key_Press 
```
```
         | Gdk.Event.Key_Release => 
```

         Key : Gdk_Event_KeyTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Enter_Notify 
```
```
         | Gdk.Event.Leave_Notify => 
```

         Crossing : Gdk_Event_CrossingTo API doc
To spec;

```
 
```

         when Gdk.Event.Focus_Change =>

         Focus_Change : Gdk_Event_FocusTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Configure => 
```

         Configure : Gdk_Event_ConfigureTo API doc
To spec;

```
 
```

         when Gdk.Event.Property_Notify =>

         Property : Gdk_Event_PropertyTo API doc
To spec;

```
 
```

         when Gdk.Event.Selection_Clear

```
         | Gdk.Event.Selection_Request 
```

         | Gdk.Event.Selection_Notify =>

         Selection : Gdk_Event_SelectionTo API doc
To spec;

```
 
```

         when Gdk.Event.Owner_Change =>

         Owner_Change : Gdk_Event_Owner_ChangeTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Proximity_In 
```
```
         | Gdk.Event.Proximity_Out => 
```

         Proximity : Gdk_Event_ProximityTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Drag_Enter 
```
```
         | Gdk.Event.Drag_Leave 
```
```
         | Gdk.Event.Drag_Motion 
```
```
         | Gdk.Event.Drag_Status 
```
```
         | Gdk.Event.Drop_Start 
```
```
         | Gdk.Event.Drop_Finished => 
```

         Dnd : Gdk_Event_DNDTo API doc
To spec;

```
 
```

         when Gdk.Event.Window_State =>

         Window_State : Gdk_Event_Window_StateTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Setting => 
```

         Setting : Gdk_Event_SettingTo API doc
To spec;

```
 
```
```
         when Gdk.Event.Grab_Broken => 
```

         Grab_Broken : Gdk_Event_Grab_BrokenTo API doc
To spec;

```
      end case; 
```
```
   end record; 
```

   pragma Convention (C, Gdk_Event_RecordTo API doc
To spec);

   pragma Unchecked_Union(Gdk_Event_RecordTo API doc
To spec);

```
 
```

   function From_Object_FreeTo API doc
To body (B : access Gdk_Event_RecordTo API doc
To spec) return Gdk_Event_RecordTo API doc
To spec;

   pragma Inline (From_Object_FreeTo API doc
To spec
To body);

   --  The Gdk.Event.Gdk_Event struct contains a union of all of the event

   --  structs, and allows access to the data fields in a number of ways.

```
   -- 
```

   --  The event type is always the first field in all of the event structs,

   --  and can always be accessed with the following code, no matter what type

```
   --  of event it is: 
```
```
   -- 
```
```
   --    GdkEvent *event; 
```
```
   --    GdkEventType type; 
```
```
   --    type = event->type; 
```
```
   -- 
```

   --  To access other fields of the event structs, the pointer to the event

   --  can be cast to the appropriate event struct pointer, or the union member

   --  name can be used. For example if the event type is

   --  Gdk.Event.Button_Press then the x coordinate of the button press can be

```
   --  accessed with: 
```
```
   -- 
```
```
   --    GdkEvent *event; 
```
```
   --    gdouble x; 
```

   --    x = ((GdkEventButton*)event)->x;

```
   -- 
```
```
   --  or: 
```
```
   -- 
```
```
   --    GdkEvent *event; 
```
```
   --    gdouble x; 
```
```
   --    x = event->button.x; 
```
```
   -- 
```
```
 
```

   type Gdk_Event is access all Gdk_Event_RecordTo API doc
To spec;

   pragma No_Strict_Aliasing (Gdk_EventTo API doc
To spec);

```
 
```
```
   --------------- 
```
```
   -- Callbacks -- 
```
```
   --------------- 
```
```
 
```

   type Gdk_Event_Func is access procedure (Event : Gdk_EventTo API doc
To spec);

   --  Specifies the type of function passed to Gdk.Event.Handler_Set to

```
   --  handle all GDK events. 
```

   --  "event": the Gdk.Event.Gdk_Event to process.

```
 
```
```
   ---------------------------- 
```
```
   -- Enumeration Properties -- 
```
```
   ---------------------------- 
```
```
 
```

   package Gdk_Event_Type_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Event_TypeTo API doc
To spec);

   type Property_Gdk_Event_Type is new Gdk_Event_Type_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Event_Mask_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Event_MaskTo API doc
To spec);

   type Property_Gdk_Event_Mask is new Gdk_Event_Mask_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Visibility_State_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Visibility_StateTo API doc
To spec);

   type Property_Gdk_Visibility_State is new Gdk_Visibility_State_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Scroll_Direction_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Scroll_DirectionTo API doc
To spec);

   type Property_Gdk_Scroll_Direction is new Gdk_Scroll_Direction_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Notify_Type_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Notify_TypeTo API doc
To spec);

   type Property_Gdk_Notify_Type is new Gdk_Notify_Type_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Crossing_Mode_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Crossing_ModeTo API doc
To spec);

   type Property_Gdk_Crossing_Mode is new Gdk_Crossing_Mode_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Property_State_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Property_StateTo API doc
To spec);

   type Property_Gdk_Property_State is new Gdk_Property_State_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Window_State_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Window_StateTo API doc
To spec);

   type Property_Gdk_Window_State is new Gdk_Window_State_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Setting_Action_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Setting_ActionTo API doc
To spec);

   type Property_Gdk_Setting_Action is new Gdk_Setting_Action_Properties.PropertyTo API doc
To spec;

```
 
```

   package Gdk_Owner_Change_Properties is

      new Generic_Internal_Discrete_PropertyTo API doc
To spec
To body (Gdk_Owner_ChangeTo API doc
To spec);

   type Property_Gdk_Owner_Change is new Gdk_Owner_Change_Properties.PropertyTo API doc
To spec;

```
 
```
```
   ------------------ 
```
```
   -- Constructors -- 
```
```
   ------------------ 
```
```
 
```

   procedure Gdk_NewTo API doc
To body (Event : out Gdk_EventTo API doc
To spec; The_TypeTo API doc
To body : Gdk_Event_TypeTo API doc
To spec);

   --  Creates a new event of the given type. All fields are set to 0.

```
   --  Since: gtk+ 2.2 
```

   --  "type": a Gdk.Event.Gdk_Event_Type

```
 
```

   function Gdk_Event_NewTo API doc
To body (The_TypeTo API doc
To body : Gdk_Event_TypeTo API doc
To spec) return Gdk_EventTo API doc
To spec;

   --  Creates a new event of the given type. All fields are set to 0.

```
   --  Since: gtk+ 2.2 
```

   --  "type": a Gdk.Event.Gdk_Event_Type

```
 
```

   function Get_TypeTo API doc
To body return Glib.GTypeTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_TypeTo API doc
To spec, "gdk_event_get_type");

```
 
```
```
   ------------- 
```
```
   -- Methods -- 
```
```
   ------------- 
```
```
 
```
```
   function Get_AngleTo API doc
To body 
```

      (Event  : Gdk_EventTo API doc
To spec;

       Event2 : Gdk_EventTo API doc
To spec;

       Angle  : access GdoubleTo API doc
To spec) return Boolean;

   --  If both events contain X/Y information, this function will return True

   --  and return in Angle the relative angle from Event1 to Event2. The

   --  rotation direction for positive angles is from the positive X axis

```
   --  towards the positive Y axis. 
```
```
   --  Since: gtk+ 3.0 
```

   --  "event2": second Gdk.Event.Gdk_Event

   --  "angle": return location for the relative angle between both events

```
 
```

   function Get_CenterTo API doc
To body

      (Event  : Gdk_EventTo API doc
To spec;

       Event2 : Gdk_EventTo API doc
To spec;

       X      : access GdoubleTo API doc
To spec;

       Y      : access GdoubleTo API doc
To spec) return Boolean;

   --  If both events contain X/Y information, the center of both coordinates

```
   --  will be returned in X and Y. 
```
```
   --  Since: gtk+ 3.0 
```

   --  "event2": second Gdk.Event.Gdk_Event

   --  "x": return location for the X coordinate of the center

   --  "y": return location for the Y coordinate of the center

```
 
```

   function Get_DistanceTo API doc
To body

      (Event    : Gdk_EventTo API doc
To spec;

       Event2   : Gdk_EventTo API doc
To spec;

       Distance : access GdoubleTo API doc
To spec) return Boolean;

   --  If both events have X/Y information, the distance between both

   --  coordinates (as in a straight line going from Event1 to Event2) will be

```
   --  returned. 
```
```
   --  Since: gtk+ 3.0 
```

   --  "event2": second Gdk.Event.Gdk_Event

   --  "distance": return location for the distance

```
 
```

   function CopyTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Gdk_EventTo API doc
To spec;

   pragma Import (CTo API doc
To spec, CopyTo API doc
To spec, "gdk_event_copy");

   --  Copies a Gdk.Event.Gdk_Event, copying or incrementing the reference

   --  count of the resources associated with it (e.g. Gdk.Gdk_Window's and

```
   --  strings). 
```
```
 
```

   procedure FreeTo API doc
To body (Event : Gdk_EventTo API doc
To spec);

   pragma Import (CTo API doc
To spec, FreeTo API doc
To spec, "gdk_event_free");

   --  Frees a Gdk.Event.Gdk_Event, freeing or decrementing any resources

   --  associated with it. Note that this function should only be called with

   --  events returned from functions such as Gdk.Event.Peek, Gdk.Event.Get,

   --  Gdk.Event.Copy and gdk_event_new.

```
 
```
```
   procedure Get_AxisTo API doc
To body 
```

      (Event    : Gdk_EventTo API doc
To spec;

       Axis_Use : Gdk_Axis_UseTo API doc
To spec;

       Value    : out GdoubleTo API doc
To spec);

   pragma Import (CTo API doc
To spec, Get_AxisTo API doc
To spec, "gdk_event_get_axis");

   --  Extract the axis value for a particular axis use from an event

```
   --  structure. 
```

   --  "axis_use": the axis use to look for

   --  "value": location to store the value found

```
 
```

   procedure Get_CoordsTo API doc
To body

      (Event : Gdk_EventTo API doc
To spec;

       X_Win : out GdoubleTo API doc
To spec;

       Y_Win : out GdoubleTo API doc
To spec);

   pragma Import (CTo API doc
To spec, Get_CoordsTo API doc
To spec, "gdk_event_get_coords");

   --  Extract the event window relative x/y coordinates from an event.

   --  "x_win": location to put event window x coordinate

   --  "y_win": location to put event window y coordinate

```
 
```

   function Get_Event_SequenceTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return System.Address;

   pragma Import (CTo API doc
To spec, Get_Event_SequenceTo API doc
To spec, "gdk_event_get_event_sequence");

   --  If Event if of type Gdk.Event.Touch_Begin, Gdk.Event.Touch_Update,

   --  Gdk.Event.Touch_End or Gdk.Event.Touch_Cancel, returns the

   --  Gdk.Event.Gdk_Event_Sequence to which the event belongs. Otherwise,

```
   --  return null. 
```
```
   --  Since: gtk+ 3.4 
```
```
 
```

   procedure Get_Root_CoordsTo API doc
To body

      (Event  : Gdk_EventTo API doc
To spec;

       X_Root : out GdoubleTo API doc
To spec;

       Y_Root : out GdoubleTo API doc
To spec);

   pragma Import (CTo API doc
To spec, Get_Root_CoordsTo API doc
To spec, "gdk_event_get_root_coords");

   --  Extract the root window relative x/y coordinates from an event.

   --  "x_root": location to put root window x coordinate

   --  "y_root": location to put root window y coordinate

```
 
```

   procedure Get_Scroll_DeltasTo API doc
To body

      (Event   : Gdk_EventTo API doc
To spec;

       Delta_X : out GdoubleTo API doc
To spec;

       Delta_Y : out GdoubleTo API doc
To spec);

   pragma Import (CTo API doc
To spec, Get_Scroll_DeltasTo API doc
To spec, "gdk_event_get_scroll_deltas");

   --  Retrieves the scroll deltas from a Gdk.Event.Gdk_Event

```
   --  Since: gtk+ 3.4 
```

   --  "delta_x": return location for X delta

   --  "delta_y": return location for Y delta

```
 
```

   procedure Get_Scroll_DirectionTo API doc
To body

      (Event     : Gdk_EventTo API doc
To spec;

       Direction : out Gdk_Scroll_DirectionTo API doc
To spec);

   pragma Import (CTo API doc
To spec, Get_Scroll_DirectionTo API doc
To spec, "gdk_event_get_scroll_direction");

   --  Extracts the scroll direction from an event.

```
   --  Since: gtk+ 3.2 
```

   --  "direction": location to store the scroll direction

```
 
```

   function Get_TimeTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Guint32To API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_TimeTo API doc
To spec, "gdk_event_get_time");

   --  Returns the time stamp from Event, if there is one; otherwise returns

   --  GDK_CURRENT_TIME. If Event is null, returns GDK_CURRENT_TIME.

```
 
```

   procedure PutTo API doc
To body (Event : Gdk_EventTo API doc
To spec);

   pragma Import (CTo API doc
To spec, PutTo API doc
To spec, "gdk_event_put");

   --  Appends a copy of the given event onto the front of the event queue for

   --  event->any.window's display, or the default event queue if

   --  event->any.window is null. See Gdk.Display.Put_Event.

```
 
```

   function Triggers_Context_MenuTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Boolean;

   --  This function returns whether a Gdk.Event.Gdk_Event_Button should

   --  trigger a context menu, according to platform conventions. The right

   --  mouse button always triggers context menus. Additionally, if

   --  gdk_keymap_get_modifier_mask returns a non-0 mask for

   --  GDK_MODIFIER_INTENT_CONTEXT_MENU, then the left mouse button will also

   --  trigger a context menu if this modifier is pressed.

   --  This function should always be used instead of simply checking for

   --  event->button == GDK_BUTTON_SECONDARY.

```
   --  Since: gtk+ 3.4 
```
```
 
```

   function Get_ButtonTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return GuintTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_ButtonTo API doc
To spec, "ada_gdk_event_get_button");

   --  Extract the button number from an event

```
 
```

   function Get_StateTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Gdk.Types.Gdk_Modifier_TypeTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_StateTo API doc
To spec, "ada_gdk_event_get_state");

   --  State of the mouse buttons and keyboard keys just prior to the event

```
 
```

   function Get_Key_ValTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Gdk.Types.Gdk_Key_TypeTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_Key_ValTo API doc
To spec, "ada_gdk_event_get_keyval");

   --  Code of the key that was pressed (and that generated the event)

```
 
```

   function Get_KeycodeTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return GuintTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_KeycodeTo API doc
To spec, "ada_gdk_event_get_keycode");

   --  Hardware key code of the key that was pressed

```
 
```

   function Get_Event_TypeTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Gdk_Event_TypeTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_Event_TypeTo API doc
To spec, "ada_gdk_event_get_event_type");

```
   --  The type of the event 
```
```
 
```

   function Get_WindowTo API doc
To body (Event : Gdk_EventTo API doc
To spec) return Gdk.Gdk_WindowTo API doc
To spec;

   pragma Import (CTo API doc
To spec, Get_WindowTo API doc
To spec, "ada_gdk_event_get_window");

   --  The window to which the event was sent

```
 
```

   procedure Handler_SetTo API doc
To body

      (Func   : Gdk_Event_FuncTo API doc
To spec;

       Notify : Glib.G_Destroy_Notify_AddressTo API doc
To spec);

   --  Sets the function to call to handle all events from GDK.

   --  Note that GTK+ uses this to install its own event handler, so it is

   --  usually not useful for GTK+ applications. (Although an application can

   --  call this function then call Gtk.Main.Main_Do_Event to pass events to

```
   --  GTK+.) 
```

   --  "func": the function to call to handle events from GDK.

   --  "notify": the function to call when the handler function is removed,

   --  i.e. when Gdk.Event.Handler_Set is called with another event handler.

```
 
```
```
   generic 
```

      type User_Data_Type (<>) is private;

      with procedure Destroy (Data : in out User_Data_TypeTo API doc
To spec) is null;

   package Handler_Set_User_DataTo API doc
To body is

```
 
```

      type Gdk_Event_Func is access procedure (Event : Gdk.Event.Gdk_EventTo API doc
To spec; Data : User_Data_TypeTo API doc
To spec);

      --  Specifies the type of function passed to Gdk.Event.Handler_Set to

```
      --  handle all GDK events. 
```

      --  "event": the Gdk.Event.Gdk_Event to process.

      --  "data": user data set when the event handler was installed with

```
      --  Gdk.Event.Handler_Set. 
```
```
 
```

      procedure Handler_SetTo API doc
To body

         (Func   : Gdk_Event_FuncTo API doc
To spec;

          Data   : User_Data_TypeTo API doc
To spec;

          Notify : Glib.G_Destroy_Notify_AddressTo API doc
To spec);

      --  Sets the function to call to handle all events from GDK.

      --  Note that GTK+ uses this to install its own event handler, so it is

      --  usually not useful for GTK+ applications. (Although an application

      --  can call this function then call Gtk.Main.Main_Do_Event to pass

```
      --  events to GTK+.) 
```

      --  "func": the function to call to handle events from GDK.

      --  "data": user data to pass to the function.

      --  "notify": the function to call when the handler function is removed,

      --  i.e. when Gdk.Event.Handler_Set is called with another event handler.

```
 
```

   end Handler_Set_User_DataTo API doc
To spec
To body;

```
 
```
```
   ---------------------- 
```
```
   -- GtkAda additions -- 
```
```
   ---------------------- 
```
```
 
```

   Double_Button_Press : constant Gdk_Event_TypeTo API doc
To spec := Gdk_2button_Press;

   Triple_Button_Press : constant Gdk_Event_TypeTo API doc
To spec := Gdk_3button_Press;

```
 
```

   function From_AddressTo API doc
To body (C : System.Address) return Gdk_EventTo API doc
To spec;

   --  Convert a C handler to the matching Event structure.

```
 
```

   function To_AddressTo API doc
To body (C : Gdk_EventTo API doc
To spec) return System.Address;

   --  Convert an event to the underlying C handler.

```
 
```

   function Get_EventTo API doc
To body (ValueTo API doc
To body : Glib.Values.GValueTo API doc
To spec
To body) return Gdk_EventTo API doc
To spec;

   --  Convert a value into a Gdk_Event.

```
 
```

   function To_EventTo API doc
To body (Event : access Gdk_Event_ButtonTo API doc
To spec) return Gdk_EventTo API doc
To spec;

   function To_EventTo API doc
To body (Event : access Gdk_Event_KeyTo API doc
To spec) return Gdk_EventTo API doc
To spec;

   --  Cast Event into a Gdk_Event, which can be used to call some of

   --  subprograms in the API. The return value is a pointer to Event,

   --  which should therefore remain valid as long as the pointer is in

```
   --  use. 
```
```
 
```
```
   ------------------------------- 
```
```
   -- Some constants used below -- 
```
```
   ------------------------------- 
```

   --  This constants have the '-1' since in some cases gtk itself uses

   --  the extrema to return some meaningful value (for instance, the result

   --  of Get_Area can have the values Guint16'Last to mean the whole area).

```
 
```

   Invalid_Gdouble_Value : constant GdoubleTo API doc
To spec := GdoubleTo API doc
To spec'Last - 1.0;

   Invalid_Gint_Value    : constant GintTo API doc
To spec    := GintTo API doc
To spec'Last - 1;

   Invalid_Guint_Value   : constant GuintTo API doc
To spec   := GuintTo API doc
To spec'Last - 1;

   Invalid_Guint32_Value : constant Guint32To API doc
To spec := Guint32To API doc
To spec'Last - 1;

   Invalid_Gulong_Value  : constant GulongTo API doc
To spec  := GulongTo API doc
To spec'Last - 1;

```
 
```

   pragma Export (CTo API doc
To spec, Invalid_Gdouble_ValueTo API doc
To spec, "ada_gdk_invalid_gdouble_value");

   pragma Export (CTo API doc
To spec, Invalid_Gint_ValueTo API doc
To spec, "ada_gdk_invalid_gint_value");

   pragma Export (CTo API doc
To spec, Invalid_Guint_ValueTo API doc
To spec, "ada_gdk_invalid_guint_value");

   pragma Export (CTo API doc
To spec, Invalid_Guint32_ValueTo API doc
To spec, "ada_gdk_invalid_guint32_value");

   pragma Export (CTo API doc
To spec, Invalid_Gulong_ValueTo API doc
To spec, "ada_gdk_invalid_gulong_value");

```
 
```
```
   --------------- 
```
```
   -- Functions -- 
```
```
   --------------- 
```
```
 
```

   function GetTo API doc
To body return Gdk_EventTo API doc
To spec;

   pragma Import (CTo API doc
To spec, GetTo API doc
To spec, "gdk_event_get");

   --  Checks all open displays for a Gdk.Event.Gdk_Event to process,to be

   --  processed on, fetching events from the windowing system if necessary.

```
   --  See Gdk.Display.Get_Event. 
```
```
 
```

   function PeekTo API doc
To body return Gdk_EventTo API doc
To spec;

   pragma Import (CTo API doc
To spec, PeekTo API doc
To spec, "gdk_event_peek");

   --  If there is an event waiting in the event queue of some open display,

   --  returns a copy of it. See Gdk.Display.Peek_Event.

```
 
```

   procedure Request_MotionsTo API doc
To body (Event : Gdk_Event_MotionTo API doc
To spec);

   pragma Import (CTo API doc
To spec, Request_MotionsTo API doc
To spec, "gdk_event_request_motions");

   --  Request more motion notifies if Event is a motion notify hint event.

   --  This function should be used instead of Gdk.Window.Get_Pointer to

   --  request further motion notifies, because it also works for extension

   --  events where motion notifies are provided for devices other than the

   --  core pointer. Coordinate extraction, processing and requesting more

   --  motion events from a Gdk.Event.Motion_Notify event usually works like

```
   --  this: 
```

   --  |[ { /* motion_event handler */ x = motion_event->x; y =

   --  motion_event->y; /* handle (x,y) motion */ gdk_event_request_motions

   --  (motion_event); /* handles is_hint events */ } ]|

```
   --  Since: gtk+ 2.12 
```

   --  "event": a valid Gdk.Event.Gdk_Event

```
 
```

   function Events_PendingTo API doc
To body return Boolean;

   --  Checks if any events are ready to be processed for any display.

```
 
```

   procedure Set_Show_EventsTo API doc
To body (Show_Events : Boolean);

   --  Sets whether a trace of received events is output. Note that GTK+ must

   --  be compiled with debugging (that is, configured using the

   --  <option>--enable-debug</option> option) to use this option.

   --  "show_events": True to output event debugging information.

```
 
```

   function Get_Show_EventsTo API doc
To body return Boolean;

   --  Gets whether event debugging output is enabled.

```
 
```
```
end Gdk.EventTo API doc
To spec
To body; 
```

Documentation