m2-GTK4/src/GtkPageSetup.def

DEFINITION MODULE FOR "C" GtkPageSetup ;

(*
   m2-GTK4 - GtkPageSetup: paper size and orientation.  Mapped onto
   <gtk/gtkpagesetup.h>.

   Units: 1 = points, 2 = inches, 3 = millimetres (GtkUnit).
*)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED
   GtkPageSetup, GtkPageOrientation, GtkUnit,
   GtkPagePortrait, GtkPageLandscape,
   GtkPageReversePortrait, GtkPageReverseLandscape,
   GtkUnitNone, GtkUnitPoints, GtkUnitInch, GtkUnitMm,
   gtk_page_setup_new,
   gtk_page_setup_get_orientation, gtk_page_setup_set_orientation,
   gtk_page_setup_get_page_width, gtk_page_setup_get_page_height;


TYPE
   GtkPageSetup = ADDRESS;
   GtkPageOrientation = CARDINAL;
   GtkUnit = CARDINAL;

CONST
   GtkPagePortrait         = 0;
   GtkPageLandscape        = 1;
   GtkPageReversePortrait  = 2;
   GtkPageReverseLandscape = 3;

   GtkUnitNone   = 0;
   GtkUnitPoints = 1;
   GtkUnitInch   = 2;
   GtkUnitMm     = 3;

(* GtkPageSetup *gtk_page_setup_new(void) *)
PROCEDURE gtk_page_setup_new () : GtkPageSetup;

(* GtkPageOrientation gtk_page_setup_get_orientation(GtkPageSetup *setup) *)
PROCEDURE gtk_page_setup_get_orientation (setup: GtkPageSetup) : GtkPageOrientation;

(* void gtk_page_setup_set_orientation(GtkPageSetup *setup,
                                       GtkPageOrientation orientation) *)
PROCEDURE gtk_page_setup_set_orientation (setup: GtkPageSetup;
                                          orientation: GtkPageOrientation);

(* double gtk_page_setup_get_page_width(GtkPageSetup *setup, GtkUnit unit) *)
PROCEDURE gtk_page_setup_get_page_width (setup: GtkPageSetup; unit: GtkUnit) : REAL;

(* double gtk_page_setup_get_page_height(GtkPageSetup *setup, GtkUnit unit) *)
PROCEDURE gtk_page_setup_get_page_height (setup: GtkPageSetup; unit: GtkUnit) : REAL;

END GtkPageSetup.