Fl_Printer(void);

function Create
    return Printer;

const char * class_name();

Fl_Graphics_Driver * driver(void);

void end_job(void);

procedure End_Job
       (This : in out Printer);

int end_page(void);

procedure End_Page
       (This : in out Printer);

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

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

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

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

void origin(int x, int y);

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

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

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

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 Printer;
        Item               : in     FLTK.Widgets.Groups.Windows.Window'Class;
        X, Y, W, H         : in     Integer;
        Offset_X, Offset_Y : in     Integer := 0);

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

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

void rotate(float angle);

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

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

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

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

void set_current(void);

procedure Set_Current
       (This : in out Printer);

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

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

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

int start_page(void);

procedure Start_Page
       (This : in out Printer);

void translate(int x, int y);

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

void untranslate(void);

procedure Untranslate
       (This : in out Printer);