m2-GTK4/src/GtkLabel.def

DEFINITION MODULE FOR "C" GtkLabel ;

(*
   m2-GTK4 - GtkLabel: a text label.  Mapped onto <gtk/gtklabel.h>.

   gtk_label_set_text() sets literal text; gtk_label_set_label() sets
   text that is interpreted as Pango markup (see gtk_label_set_markup
   and gtk_label_set_use_markup in the C API).  gtk_label_get_text()
   returns an internal, borrowed C string - copy it with
   GtkUtils.CStrToM2() before the label changes.
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GtkLabel,
   gtk_label_new, gtk_label_set_text, gtk_label_get_text,
   gtk_label_set_markup, gtk_label_set_use_markup,
   gtk_label_set_wrap, gtk_label_set_wrap_mode, gtk_label_set_max_width_chars;


TYPE
   GtkLabel = ADDRESS;

(* GtkWidget *gtk_label_new(const char *str) *)
PROCEDURE gtk_label_new (str: ARRAY OF CHAR) : GtkLabel;

(* void gtk_label_set_text(GtkLabel *self, const char *str) *)
PROCEDURE gtk_label_set_text (label: GtkLabel; str: ARRAY OF CHAR);

(* const char *gtk_label_get_text(GtkLabel *self) *)
PROCEDURE gtk_label_get_text (label: GtkLabel) : ADDRESS;

(* void gtk_label_set_markup(GtkLabel *self, const char *str) *)
PROCEDURE gtk_label_set_markup (label: GtkLabel; str: ARRAY OF CHAR);

(* void gtk_label_set_use_markup(GtkLabel *self, gboolean setting) *)
PROCEDURE gtk_label_set_use_markup (label: GtkLabel; setting: INTEGER);

(* void gtk_label_set_wrap(GtkLabel *self, gboolean wrap) *)
PROCEDURE gtk_label_set_wrap (label: GtkLabel; wrap: INTEGER);

(* void gtk_label_set_wrap_mode(GtkLabel *self, PangoWrapMode wrap_mode) *)
PROCEDURE gtk_label_set_wrap_mode (label: GtkLabel; wrap_mode: CARDINAL);

(* void gtk_label_set_max_width_chars(GtkLabel *self, int n_chars) *)
PROCEDURE gtk_label_set_max_width_chars (label: GtkLabel; n_chars: INTEGER);

END GtkLabel.