static const char * class_id = "Fl_Printer";

static const char * dialog_title = "Print";

function Get_Dialog_Title
    return String;

procedure Set_Dialog_Title
       (Value : in String);

static const char * dialog_printer = "Printer:";

function Get_Dialog_Printer
    return String;

procedure Set_Dialog_Printer
       (Value : in String);

static const char * dialog_range = "Print Range";

function Get_Dialog_Range
    return String;

procedure Set_Dialog_Range
       (Value : in String);

static const char * dialog_copies = "Copies";

function Get_Dialog_Copies
    return String;

procedure Set_Dialog_Copies
       (Value : in String);

static const char * dialog_all = "All";

function Get_Dialog_All
    return String;

procedure Set_Dialog_All
       (Value : in String);

static const char * dialog_pages = "Pages";

function Get_Dialog_Pages
    return String;

procedure Set_Dialog_Pages
       (Value : in String);

static const char * dialog_from = "From:";

function Get_Dialog_From
    return String;

procedure Set_Dialog_From
       (Value : in String);

static const char * dialog_to = "To:";

function Get_Dialog_To
    return String;

procedure Set_Dialog_To
       (Value : in String);

static const char * dialog_properties = "Properties...";

function Get_Dialog_Properties
    return String;

procedure Set_Dialog_Properties
       (Value : in String);

static const char * dialog_copyNo = "# Copies:";

function Get_Dialog_Number_Copies
    return String;

procedure Set_Dialog_Number_Copies
       (Value : in String);

static const char * dialog_print_button = "Print";

function Get_Dialog_Print_Button
    return String;

procedure Set_Dialog_Print_Button
       (Value : in String);

static const char * dialog_cancel_button = "Cancel";

function Get_Dialog_Cancel_Button
    return String;

procedure Set_Dialog_Cancel_Button
       (Value : in String);

static const char * dialog_print_to_file = "Print To File";

function Get_Dialog_Print_To_File
    return String;

procedure Set_Dialog_Print_To_File
       (Value : in String);

static const char * property_title = "Printer Properties";

function Get_Property_Title
    return String;

procedure Set_Property_Title
       (Value : in String);

static const char * property_pagesize = "Page Size:";

function Get_Property_Page_Size
    return String;

procedure Set_Property_Page_Size
       (Value : in String);

static const char * property_mode = "Output Mode:";

function Get_Property_Mode
    return String;

procedure Set_Property_Mode
       (Value : in String);

static const char * property_use = "Use";

function Get_Property_Use
    return String;

procedure Set_Property_Use
       (Value : in String);

static const char * property_save = "Save";

function Get_Property_Save
    return String;

procedure Set_Property_Save
       (Value : in String);

static const char * property_cancel = "Cancel";

function Get_Property_Cancel
    return String;

procedure Set_Property_Cancel
       (Value : in String);

Fl_Printer(void);

function Create
    return Printer;

const char * class_name();

Fl_Graphics_Driver * driver(void);

function Get_Original_Driver
       (This : in out Printer)
    return FLTK.Devices.Graphics.Graphics_Driver_Reference;

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 := 0);

procedure Start_Job
       (This     : in out Printer;
        Count    : in     Natural := 0;
        From, To :    out 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);