m2-GTK4/src/GdkDevice.def

DEFINITION MODULE FOR "C" GdkDevice ;

(*
   m2-GTK4 - GdkDevice: an input device such as a mouse, keyboard or
   tablet.  Mapped onto <gdk/gdkdevice.h>.

   Get a device from its GdkSeat; a plain pointer device is
   gdk_seat_get_pointer.  gdk_device_get_direction returns a
   PangoDirection, and gdk_device_get_source a GdkInputSource.
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GdkDevice,
   gdk_device_get_active_layout_index,
   gdk_device_get_caps_lock_state,
   gdk_device_get_device_tool,
   gdk_device_get_direction,
   gdk_device_get_display,
   gdk_device_get_has_cursor,
   gdk_device_get_layout_names,
   gdk_device_get_modifier_state,
   gdk_device_get_name,
   gdk_device_get_num_lock_state,
   gdk_device_get_num_touches,
   gdk_device_get_product_id,
   gdk_device_get_scroll_lock_state,
   gdk_device_get_seat,
   gdk_device_get_source,
   gdk_device_get_surface_at_position,
   gdk_device_get_timestamp,
   gdk_device_get_vendor_id,
   gdk_device_has_bidi_layouts;

TYPE
   GdkDevice = ADDRESS;

(* int gdk_device_get_active_layout_index(GdkDevice *device) *)
PROCEDURE gdk_device_get_active_layout_index (device: GdkDevice) : INTEGER;

(* gboolean gdk_device_get_caps_lock_state(GdkDevice *device) *)
PROCEDURE gdk_device_get_caps_lock_state (device: GdkDevice) : INTEGER;

(* GdkDeviceTool *gdk_device_get_device_tool(GdkDevice *device) *)
PROCEDURE gdk_device_get_device_tool (device: GdkDevice) : ADDRESS;

(* PangoDirection gdk_device_get_direction(GdkDevice *device) *)
PROCEDURE gdk_device_get_direction (device: GdkDevice) : CARDINAL;

(* GdkDisplay *gdk_device_get_display(GdkDevice *device) *)
PROCEDURE gdk_device_get_display (device: GdkDevice) : ADDRESS;

(* gboolean gdk_device_get_has_cursor(GdkDevice *device) *)
PROCEDURE gdk_device_get_has_cursor (device: GdkDevice) : INTEGER;

(* gchar **gdk_device_get_layout_names(GdkDevice *device) *)
PROCEDURE gdk_device_get_layout_names (device: GdkDevice);

(* GdkModifierType gdk_device_get_modifier_state(GdkDevice *device) *)
PROCEDURE gdk_device_get_modifier_state (device: GdkDevice) : CARDINAL;

(* const char *gdk_device_get_name(GdkDevice *device) *)
PROCEDURE gdk_device_get_name (device: GdkDevice) : ADDRESS;

(* gboolean gdk_device_get_num_lock_state(GdkDevice *device) *)
PROCEDURE gdk_device_get_num_lock_state (device: GdkDevice) : INTEGER;

(* guint gdk_device_get_num_touches(GdkDevice *device) *)
PROCEDURE gdk_device_get_num_touches (device: GdkDevice) : CARDINAL;

(* const char *gdk_device_get_product_id(GdkDevice *device) *)
PROCEDURE gdk_device_get_product_id (device: GdkDevice) : ADDRESS;

(* gboolean gdk_device_get_scroll_lock_state(GdkDevice *device) *)
PROCEDURE gdk_device_get_scroll_lock_state (device: GdkDevice) : INTEGER;

(* GdkSeat *gdk_device_get_seat(GdkDevice *device) *)
PROCEDURE gdk_device_get_seat (device: GdkDevice) : ADDRESS;

(* GdkInputSource gdk_device_get_source(GdkDevice *device) *)
PROCEDURE gdk_device_get_source (device: GdkDevice) : CARDINAL;

(* GdkSurface *gdk_device_get_surface_at_position(GdkDevice *device,
                                                   double *win_x,
                                                   double *win_y) *)
PROCEDURE gdk_device_get_surface_at_position (device: GdkDevice;
                                              VAR win_x: REAL;
                                              VAR win_y: REAL) : ADDRESS;

(* guint32 gdk_device_get_timestamp(GdkDevice *device) *)
PROCEDURE gdk_device_get_timestamp (device: GdkDevice) : CARDINAL;

(* const char *gdk_device_get_vendor_id(GdkDevice *device) *)
PROCEDURE gdk_device_get_vendor_id (device: GdkDevice) : ADDRESS;

(* gboolean gdk_device_has_bidi_layouts(GdkDevice *device) *)
PROCEDURE gdk_device_has_bidi_layouts (device: GdkDevice) : INTEGER;

END GdkDevice.