DEFINITION MODULE FOR "C" GtkPaned ;

(*
   m2-GTK4 - GtkPaned: a two-pane container split by a draggable handle.
   Mapped onto <gtk/gtkpaned.h>.

   The two panes are "start" and "end" (orientation gives the axis).
   The divider position is in pixels; resize/shrink flags control how
   each pane reacts to the window being resized.
*)

FROM SYSTEM IMPORT ADDRESS;
FROM GtkEnums IMPORT GtkOrientation;

EXPORT UNQUALIFIED
   GtkPaned,
   gtk_paned_new,
   gtk_paned_set_start_child, gtk_paned_get_start_child,
   gtk_paned_set_end_child, gtk_paned_get_end_child,
   gtk_paned_set_position, gtk_paned_get_position,
   gtk_paned_set_resize_start_child, gtk_paned_set_resize_end_child,
   gtk_paned_set_shrink_start_child, gtk_paned_set_shrink_end_child;


TYPE
   GtkPaned = ADDRESS;

(* GtkWidget *gtk_paned_new(GtkOrientation orientation) *)
PROCEDURE gtk_paned_new (orientation: GtkOrientation) : GtkPaned;

(* void gtk_paned_set_start_child(GtkPaned *paned, GtkWidget *child) *)
PROCEDURE gtk_paned_set_start_child (paned: GtkPaned; child: ADDRESS);

(* GtkWidget *gtk_paned_get_start_child(GtkPaned *paned) *)
PROCEDURE gtk_paned_get_start_child (paned: GtkPaned) : ADDRESS;

(* void gtk_paned_set_end_child(GtkPaned *paned, GtkWidget *child) *)
PROCEDURE gtk_paned_set_end_child (paned: GtkPaned; child: ADDRESS);

(* GtkWidget *gtk_paned_get_end_child(GtkPaned *paned) *)
PROCEDURE gtk_paned_get_end_child (paned: GtkPaned) : ADDRESS;

(* void gtk_paned_set_position(GtkPaned *paned, int position) *)
PROCEDURE gtk_paned_set_position (paned: GtkPaned; position: INTEGER);

(* int gtk_paned_get_position(GtkPaned *paned) *)
PROCEDURE gtk_paned_get_position (paned: GtkPaned) : INTEGER;

(* void gtk_paned_set_resize_start_child(GtkPaned *paned, gboolean resize) *)
PROCEDURE gtk_paned_set_resize_start_child (paned: GtkPaned; resize: INTEGER);

(* void gtk_paned_set_resize_end_child(GtkPaned *paned, gboolean resize) *)
PROCEDURE gtk_paned_set_resize_end_child (paned: GtkPaned; resize: INTEGER);

(* void gtk_paned_set_shrink_start_child(GtkPaned *paned, gboolean resize) *)
PROCEDURE gtk_paned_set_shrink_start_child (paned: GtkPaned; shrink: INTEGER);

(* void gtk_paned_set_shrink_end_child(GtkPaned *paned, gboolean resize) *)
PROCEDURE gtk_paned_set_shrink_end_child (paned: GtkPaned; shrink: INTEGER);

END GtkPaned.