m2-GTK4/src/Gdk.def

DEFINITION MODULE FOR "C" Gdk ;

(*
   m2-GTK4 - minimal GDK: the default display and GdkRGBA.  Mapped onto
   <gdk/gdkdisplay.h> and <gdk/gdkrgba.h>.

   Enough to install a CSS provider for the display and to handle the
   colours returned by GtkColorDialog.
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GdkDisplay, GdkRGBA, GdkRGBAPtr,
   gdk_display_get_default,
   gdk_rgba_free, gdk_rgba_to_string;


TYPE
   GdkDisplay = ADDRESS;
   (* struct { float red, green, blue, alpha; } *)
   GdkRGBA = RECORD
      red, green, blue, alpha: SHORTREAL;
   END;
   GdkRGBAPtr = POINTER TO GdkRGBA;

(* GdkDisplay *gdk_display_get_default(void) *)
PROCEDURE gdk_display_get_default () : GdkDisplay;

(* void gdk_rgba_free(GdkRGBA *rgba) *)
PROCEDURE gdk_rgba_free (rgba: ADDRESS);

(* char *gdk_rgba_to_string(const GdkRGBA *rgba) *)
PROCEDURE gdk_rgba_to_string (VAR rgba: GdkRGBA) : ADDRESS;

END Gdk.