DEFINITION MODULE FOR "C" GtkRange ;

(*
   m2-GTK4 - GtkRange: the base class of value-selecting widgets
   (GtkScale, GtkScrollbar).  Mapped onto <gtk/gtkrange.h>.

   Values are C `double`, mapped here onto REAL.
   Signal: "value-changed", handler void(GtkRange*, gpointer).
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GtkRange,
   gtk_range_get_value, gtk_range_set_value,
   gtk_range_set_range, gtk_range_set_increments;


TYPE
   GtkRange = ADDRESS;

(* double gtk_range_get_value(GtkRange *range) *)
PROCEDURE gtk_range_get_value (range: GtkRange) : REAL;

(* void gtk_range_set_value(GtkRange *range, double value) *)
PROCEDURE gtk_range_set_value (range: GtkRange; value: REAL);

(* void gtk_range_set_range(GtkRange *range, double min, double max) *)
PROCEDURE gtk_range_set_range (range: GtkRange; min, max: REAL);

(* void gtk_range_set_increments(GtkRange *range, double step, double page) *)
PROCEDURE gtk_range_set_increments (range: GtkRange;
                                    step, page: REAL);

END GtkRange.