[Contents] [Back] [Prev] [Up] [Next] [Forward]

# Package Gdk.Event

This package provides functions dealing with events from the window system. In GtkAda applications, the events are handled automatically in Gtk.Main.Do_Event, and passed on to the appropriate widgets, so these functions are rarely needed.

!! Warning !! This is one of the only package that requires manual memory management in some cases. If you use the function Allocate, you have to use the function Free too...

- Gdk.Event Types
- Gdk.Event Subprograms

## Types

    type Event_Handler_Func is access procedure

    type Gdk_Event is new Gdk.C_Proxy;

    subtype Gdk_Event_Any is Gdk_Event;

| Change from GtkAda1.2.3: There is no longer a tagged type hierarchy, only one type. However there are now a few runtime tests for each of the function, to check whether a given field is available or not. Fields common to all events: Window, Send_Event, Event_Type

    subtype Gdk_Event_Button is Gdk_Event;

| A button was pressed or release. Relevant fields: Time, X, Y, Pressure, Xtilt, Ytilt, State, Button, Source, Device_Id, X_Root, Y_Root, Window. Type: Button_Press, Gdk_2Button_Press, Gdk_3Button_Press or Button_Release.

    subtype Gdk_Event_Client is Gdk_Event;

| This is an event used to send arbitrary data from one X application to another. This event too is almost never used, and is not documented here. Please consult an X11 documentation for more information. Relevant fields: Message_Type, Data Type: Client_Event

    type Gdk_Event_Client_Data_Format is
        (Char_Array, Short_Array, Long_Array);

    subtype Gdk_Event_Configure is Gdk_Event;

| The window configuration has changed: either it was remapped, resized, moved, ... Note that you usually don't have to redraw your window when you receive such an event, since it is followed by an Gdk_Event_Expose. Relevant fields: X, Y, Width, Height Type: Configure

    subtype Gdk_Event_Crossing is Gdk_Event;

| The mouse has been moved in or out of the window Relevant fields: Time, SubWindow, X, Y, X_Root, Y_Root, Mode, Detail, Focus, State Type: Enter_Notify, Leave_Notify

    subtype Gdk_Event_Expose is Gdk_Event;

| The window needs to be redrawn. For efficiency, gtk gives you the smallest area that you need to redraw Relevant fields: Area, Count, Graphics_Expose Type: Expose

    subtype Gdk_Event_Focus is Gdk_Event;

| The focus has changed for a window. Relevant fields: in Type: Focus_Change

    subtype Gdk_Event_Key is Gdk_Event;

| A keyboard key was pressed Relevant fields: Time, State, Key_Val, String Type: Key_Press, Key_Release

    subtype Gdk_Event_Motion is Gdk_Event;

| The mouse has moved Relevant fields: Time, X, Y, Pressure, Xtilt, Ytilt, State, Is_Hint, Source, Device_Id, X_Root, Y_Root Type: Motion_Notify

    subtype Gdk_Event_No_Expose is Gdk_Event;

| Indicate that the source region was completely available when parts of a drawable were copied. This is also emitted when a gc whose "exposures" attribute is set to False in a call to Copy_Area or Draw_Pixmap. See the documentation for Gdk.GC.Set_Exposures. No Relevent fields except the common ones Type: No_Expose

    subtype Gdk_Event_Property is Gdk_Event;

| Some property of the window was modified. GtkAda provides a higher level interface, and you almost never need to use this event. Relevent fields: Atom, Time, Property_State Type: Property_Notify

    subtype Gdk_Event_Proximity is Gdk_Event;

| from gtk+: "This event type will be used pretty rarely. It only is important for XInput aware programs that are drawing their own cursor". This is only used with non standard input devices, like graphic tablets. Relevant fields: Time, Source, Device_Id Type: Proximity_In, Proximity_Out

    subtype Gdk_Event_Selection is Gdk_Event;

| This is how X11 implements a simple cut-and-paste mechanism. However, GtkAda provides a higher level interface to the selection mechanism, so this event will almost never be used. Relevant fields: Selection, Target, Property, Requestor, Time Type: Selection_Clear, Selection_Request, Selection_Notify

    subtype Gdk_Event_Visibility is Gdk_Event;

| The visibility state of the window (partially visibly, fully visible, hidden). This event almost never need to be used, since other events are generated at the same time, like expose_events Relevant fields: Visibility_State type: Visibility_Notify

## Subprograms

### Access to fields of the event

    function Get_Event_Type
      (Event              : in     Gdk_Event)
       return Types.Gdk_Event_Type;

| The type of the event.

    function Get_Send_Event
      (Event              : in     Gdk_Event)
       return Boolean;

| Set to true if the event was generated by the application, False if generated by the X server/Win32.

    function Get_Window
      (Event              : in     Gdk_Event)
       return Gdk.Window.Gdk_Window;

| The window the event occured on.

    function Get_Time
      (Event              : in     Gdk_Event)
       return Guint32;

| Time when the event occured.

    function Get_X
      (Event              : in     Gdk_Event)
       return Gdouble;

| Horizontal coordinate of the mouse when the event occured. The coordinates are relative to the parent window.

    function Get_Y
      (Event              : in     Gdk_Event)
       return Gdouble;

| Vertical coordinate of the mouse when the event occured. The coordinates are relative to the parent window.

    function Get_X_Root
      (Event              : in     Gdk_Event)
       return Gdouble;

| Horizontal coordinate of the mouse when the event occured. Relative to the root window.

    function Get_Y_Root
      (Event              : in     Gdk_Event)
       return Gdouble;

| Vertical coordinate of the mouse when the event occured. Relative to the root window.

    function Get_Button
      (Event              : in     Gdk_Event)
       return Guint;

| Number of the button that was pressed.

    function Get_State
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Modifier_Type;

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

    function Get_Subwindow
      (Event              : in     Gdk_Event)
       return Gdk.Window.Gdk_Window;

| Child window for the event. For an Enter_Notify_Event, this is set to the initial window for the pointer; for an Leave_Notify_Event this is set to the window occupied by the pointer in its last position.

    function Get_Mode
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Crossing_Mode;

| Return the mode of an Event. Set to indicate whether the events are normal events, pseudo-motion events when a grab activates or pseudo-motion events when a grab deativates.

    function Get_Detail
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Notify_Type;

| Set to indicate the notify details. Most applications can ignore events with a Notify Virtual or a Notify_Non_Linear_Virtual detail.

    function Get_Focus
      (Event              : in     Gdk_Event)
       return Boolean;

| Set to true if the window for the event is the focus window.

    function Get_Pressure
      (Event              : in     Gdk_Event)
       return Gdouble;

| This is set to a constant in the gtk+ code itself, so it is most probably useless... Its value is 0.5. It is only used with some special input devices, like drawing tablets,...

    function Get_Xtilt
      (Event              : in     Gdk_Event)
       return Gdouble;

| This is set to a constant in the gtk+ code itself, so it is most probably useless... Its value is 0.0. It is only used with some special input devices, like drawing tablets,...

    function Get_Ytilt
      (Event              : in     Gdk_Event)
       return Gdouble;

| This is set to a constant in the gtk+ code itself, so it is most probably useless... Its value is 0.0. It is only used with some special input devices, like drawing tablets,...

    function Get_Width
      (Event              : in     Gdk_Event)
       return Gint16;

| Get the width in a configure event.

    function Get_Height
      (Event              : in     Gdk_Event)
       return Gint16;

| Get the height in a configure event.

    function Get_Source
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Input_Source;

| Set to a constant for now in the gtk+ source... Probably useless.

    function Get_Device_Id
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Device_Id;

| Set to a constant for now in the gtk+ source... Probably useless. Since multiple input devices can be used at the same time, like a mouse and a graphic tablet, this indicated which one generated the event.

    function Get_Area
      (Event              : in     Gdk_Event)
       return Rectangle.Gdk_Rectangle;

| The minimal area on which the event applies. For Expose_Events, this is the minimal area to redraw.

    function Get_Count
      (Event              : in     Gdk_Event)
       return Gint;

| Number of Expose_Events that are to follow this one. Most applications can ignore the event if Count is not 0, which also allows for optimizations.

    function Get_In
      (Event              : in     Gdk_Event)
       return Boolean;

| True if the window has gained the focus, False otherwise.

    function Get_Is_Hint
      (Event              : in     Gdk_Event)
       return Boolean;

| ???

    function Get_Key_Val
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Key_Type;

| Code of the key that was pressed (and that generated the event.

    function Get_String
      (Event              : in     Gdk_Event)
       return String;

| Symbol of the key that was pressed, as a string.

    function Get_Atom
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Atom;

| Indicate which property has changed. ??? Atom should not be a Guint

    function Get_Property_State
      (Event              : in     Gdk_Event)
       return Guint;

| ??? The return type should be changed.

    function Get_Visibility_State
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Visibility_State;

| Return the new visibility state for the window.

    function Get_Selection
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Atom;

| What was selected in the window...

    function Get_Target
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Atom;

| ???

    function Get_Property
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Atom;

| ???

    function Get_Requestor
      (Event              : in     Gdk_Event)
       return Guint32;

| ???

    function Get_Message_Type
      (Event              : in     Gdk_Event)
       return Gdk.Types.Gdk_Atom;

| ???

    function Get_Data
      (Event              : in     Gdk_Event)
       return Gdk_Event_Client_Data;

| ???

### Modifying the fields of an event

    procedure Set_Window
      (Event              : in     Gdk_Event;
       Win                :        Gdk.Window.Gdk_Window);

| Set the Window field of an event.

    procedure Set_X
      (Event              : in     Gdk_Event;
       X                  :        Gdouble);

| Set the X field of an event.

    procedure Set_Y
      (Event              : in     Gdk_Event;
       Y                  :        Gdouble);

| Set the Y field of an event.

    procedure Set_Xroot
      (Event              : in     Gdk_Event;
       Xroot              :        Gdouble);

| Set the Xroot field of an event.

    procedure Set_Yroot
      (Event              : in     Gdk_Event;
       Yroot              :        Gdouble);

| Set the Yroot field of an event.

    procedure Set_Width
      (Event              : in     Gdk_Event;
       Width              :        Gint16);

| Set the Width field of an event.

    procedure Set_Height
      (Event              : in     Gdk_Event;
       Height             :        Gint16);

| Set the Height field of an event.

    procedure Set_Button
      (Event              : in     Gdk_Event;
       Button             :        Guint);

| Set the Button field of an event.

    procedure Set_Time
      (Event              : in     Gdk_Event;
       Time               :        Guint32);

| Set the time for the event. If Time is 0, then it is set to the current time.

    procedure Set_State
      (Event              : in     Gdk_Event;
       State              : in     Gdk.Types.Gdk_Modifier_Type);

| Set the State field of an event.

    procedure Set_Subwindow
      (Event              : in     Gdk_Event;
       Window             : in     Gdk.Window.Gdk_Window);

| Set the Subwindow field of an event.

    procedure Set_Mode
      (Event              : in     Gdk_Event;
       Mode               : in     Gdk.Types.Gdk_Crossing_Mode);

| Set the Mode field of an event.

    procedure Set_Detail
      (Event              : in     Gdk_Event;
       Detail             : in     Gdk.Types.Gdk_Notify_Type);

| Set the Detail field of an event.

    procedure Set_Focus
      (Event              : in     Gdk_Event;
       Has_Focus          :        Boolean);

| Set the Focus field of an event.

    procedure Set_Area
      (Event              : in     Gdk_Event;
       Area               :        Rectangle.Gdk_Rectangle);

| Set the Area field of an event.

    procedure Set_In
      (Event              : in     Gdk_Event;
       Focus_In           :        Boolean);

| Set the In field of an event.

    procedure Set_Is_Hint
      (Event              : in     Gdk_Event;
       Is_Hint            :        Boolean);

| Set the Is_Hint field of an event.

    procedure Set_Key_Val
      (Event              : in     Gdk_Event;
       Key                :        Gdk.Types.Gdk_Key_Type);

| Set the Key_Val field of an event.

    procedure Set_Atom
      (Event              : in     Gdk_Event;
       Atom               :        Gdk.Types.Gdk_Atom);

| Set the Atom field of an event.

    procedure Set_Property_State
      (Event              : in     Gdk_Event;
       State              :        Guint);

| Set the Property_State field of an event.

    procedure Set_Visibility_State
      (Event              : in     Gdk_Event;
       State              :        Gdk.Types.Gdk_Visibility_State);

| Set the Visibility_State field of an event.

    procedure Set_Selection
      (Event              : in     Gdk_Event;
       Selection          :        Gdk.Types.Gdk_Atom);

| Set the Selection field of an event.

    procedure Set_Target
      (Event              : in     Gdk_Event;
       Target             :        Gdk.Types.Gdk_Atom);

| Set the Target field of an event.

    procedure Set_Property
      (Event              : in     Gdk_Event;
       Property           :        Gdk.Types.Gdk_Atom);

| Set the Property field of an event.

    procedure Set_Requestor
      (Event              : in     Gdk_Event;
       Requestor          :        Guint32);

| Set the Requestor field of an event.

    procedure Set_Message_Type
      (Event              : in     Gdk_Event;
       Typ                :        Gdk.Types.Gdk_Atom);

| Set the Message_Type field of an event.

    procedure Set_String
      (Event              : in     Gdk_Event;
       Str                :        String);

| Set the string associated with an event.

### General functions

    procedure Deep_Copy
      (From               :        Gdk_Event;
       To                 : out    Gdk_Event);

| Deep copy for an event. The C structure is itself duplicated. You need to deallocated it yourself with a call to Free below.

    procedure Get_Graphics_Expose
      (Event              : out    Gdk_Event_Expose;
       Window             : in     Gdk.Window.Gdk_Window);

Waits for a GraphicsExpose or NoExpose event
If it gets a GraphicsExpose event, it returns a pointer to it, otherwise it returns an event for which Is_Created is False.

This function can be used to implement scrolling: you must call Gdk.GC.Set_Exposures with True on the GC you are using for the drawing, so that a events are generated for obscured areas and every time a new part of the widget is drawn. However, there is a race condition if multiple scrolls happen before you have finished processing the first one. A workaround is to call Get_Graphics_Expose after every scroll until it returns a null event.

    function Events_Pending        return Boolean;

| Is there any event pending on the queue ?

    procedure Get
      (Event              : out    Gdk_Event);

| Get the next event on the queue.

    procedure Peek
      (Event              : out    Gdk_Event);

| Look at the next event on the queue, but leave if there.

    procedure Put
      (Event              : in     Gdk_Event);

| Add an event on the queue - Better to use Gtk.Signal.Emit_By_Name

    procedure Set_Show_Events
      (Show_Events        : in     Boolean := True);

| For debug purposes, you can choose whether you want to see the events GtkAda receives.

    function Get_Show_Events       return Boolean;

| Return the current state of Show_Events.

    procedure Send_Client_Message_To_All
      (Event              : in     Gdk_Event);

| Low level routine to send an Event to every window.

    function Send_Client_Message
      (Event              : in     Gdk_Event;
       Xid                : in     Guint32)
       return Boolean;

| Low level routine to send an Event to a specified X window.

    procedure Allocate
      (Event              : out    Gdk_Event;
       Event_Type         : in     Types.Gdk_Event_Type;
       Window             : in     Gdk.Window.Gdk_Window);

| Create an event, whose fields are uninitialized. You need to use the function Set_* above to modify them, before you can send the event with Emit_By_Name. !!Note!!: The event has to be freed if you have called this function. Use the function Free.

    procedure Free
      (Event              : in out Gdk_Event);

| Free the memory (and C structure) associated with an event. You need to call this function only if the event was created through Allocate, not if it was created by GtkAda itself (or you would get a segmentation fault).

    procedure Event_Handler_Set
      (Func               :        Event_Handler_Func;
       Data               :        System.Address);

| Set up a new event handler. This handler replaces the default GtkAda event handler, and thus should make sure that all events are correctly handled. Note that managing the memory for Data is your responsability, and Data is passed as is to Func.

    function From_Address
      (C                  :        System.Address)
       return Gdk_Event;

| Convert a C handler to the matching Event structure.

    function To_Address
      (C                  :        Gdk_Event)
       return System.Address;

| Convert an event to the underlying C handler.

    function Is_Created
      (E                  :        Gdk_Event)
       return Boolean;

| Return True if the underlying C event has been created.

[Contents] [Back] [Prev] [Up] [Next] [Forward]