Fl_Paged_Device();

function Create
    return Paged_Surface;

const char * class_name();

virtual void end_job(void);

procedure End_Job
       (This : in out Paged_Surface);

virtual int end_page(void);

procedure End_Page
       (This : in out Paged_Surface);

virtual void margins(int *left, int *top, int *right, int *bottom);

procedure Get_Margins
       (This                     : in     Paged_Surface;
        Left, Top, Right, Bottom :    out Integer);

virtual void origin(int x, int y);

procedure Set_Origin
       (This : in out Paged_Surface;
        X, Y : in     Integer);

virtual void origin(int *x, int *y);

procedure Get_Origin
       (This : in     Paged_Surface;
        X, Y :    out Integer);

virtual void print_widget(Fl_Widget *widget, int delta_x=0, int delta_y=0);

procedure Print_Widget
       (This               : in out Paged_Surface;
        Item               : in     FLTK.Widgets.Widget'Class;
        Offset_X, Offset_Y : in     Integer := 0);

void print_window(Fl_Window *win, int x_offset=0, int y_offset=0);

procedure Print_Window
       (This               : in out Paged_Surface;
        Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
        Offset_X, Offset_Y : in     Integer := 0);

virtual void print_window_part(Fl_Window *win, int x, int y, int w, int h, int delta_x=0, int delta_y=0);

procedure Print_Window_Part
       (This               : in out Paged_Surface;
        Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
        X, Y, W, H         : in     Integer;
        Offset_X, Offset_Y : in     Integer := 0);

virtual int printable_rect(int *w, int *h);

procedure Get_Printable_Rect
       (This : in     Paged_Surface;
        W, H :    out Integer);

virtual void rotate(float angle);

procedure Rotate
       (This    : in out Paged_Surface;
        Degrees : in     Float);

virtual void scale(float scale_x, float scale_y=0);

procedure Scale
       (This   : in out Paged_Surface;
        Factor : in     Float);

procedure Scale
       (This               : in out Paged_Surface;
        Factor_X, Factor_Y : in     Float);

virtual int start_job(int pagecount, int *frompage=NULL, int *topage=NULL);

procedure Start_Job
       (This  : in out Paged_Surface;
        Count : in     Natural);

procedure Start_Job
       (This     : in out Paged_Surface;
        Count    : in     Natural;
        From, To : in     Positive);

virtual int start_page(void);

procedure Start_Page
       (This : in out Paged_Surface);

virtual void translate(int x, int y);

procedure Translate
       (This             : in out Paged_Surface;
        Delta_X, Delta_Y : in     Integer);

virtual void untranslate(void);

procedure Untranslate
       (This : in out Paged_Surface);