path: root/src/fltk-devices-surface-paged-printers.adb

--  Programmed by Jedidiah Barber
--  Released into the public domain


with

    Interfaces.C.Strings;

use type

    Interfaces.C.int;


package body FLTK.Devices.Surface.Paged.Printers is


    ------------------------
    --  Functions From C  --
    ------------------------

    function new_fl_printer
        return Storage.Integer_Address;
    pragma Import (C, new_fl_printer, "new_fl_printer");
    pragma Inline (new_fl_printer);

    procedure free_fl_printer
           (D : in Storage.Integer_Address);
    pragma Import (C, free_fl_printer, "free_fl_printer");
    pragma Inline (free_fl_printer);




    function fl_printer_get_dialog_title
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_title, "fl_printer_get_dialog_title");
    pragma Inline (fl_printer_get_dialog_title);

    procedure fl_printer_set_dialog_title
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_title, "fl_printer_set_dialog_title");
    pragma Inline (fl_printer_set_dialog_title);

    function fl_printer_get_dialog_printer
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_printer, "fl_printer_get_dialog_printer");
    pragma Inline (fl_printer_get_dialog_printer);

    procedure fl_printer_set_dialog_printer
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_printer, "fl_printer_set_dialog_printer");
    pragma Inline (fl_printer_set_dialog_printer);

    function fl_printer_get_dialog_range
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_range, "fl_printer_get_dialog_range");
    pragma Inline (fl_printer_get_dialog_range);

    procedure fl_printer_set_dialog_range
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_range, "fl_printer_set_dialog_range");
    pragma Inline (fl_printer_set_dialog_range);

    function fl_printer_get_dialog_copies
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_copies, "fl_printer_get_dialog_copies");
    pragma Inline (fl_printer_get_dialog_copies);

    procedure fl_printer_set_dialog_copies
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_copies, "fl_printer_set_dialog_copies");
    pragma Inline (fl_printer_set_dialog_copies);

    function fl_printer_get_dialog_all
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_all, "fl_printer_get_dialog_all");
    pragma Inline (fl_printer_get_dialog_all);

    procedure fl_printer_set_dialog_all
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_all, "fl_printer_set_dialog_all");
    pragma Inline (fl_printer_set_dialog_all);

    function fl_printer_get_dialog_pages
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_pages, "fl_printer_get_dialog_pages");
    pragma Inline (fl_printer_get_dialog_pages);

    procedure fl_printer_set_dialog_pages
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_pages, "fl_printer_set_dialog_pages");
    pragma Inline (fl_printer_set_dialog_pages);

    function fl_printer_get_dialog_from
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_from, "fl_printer_get_dialog_from");
    pragma Inline (fl_printer_get_dialog_from);

    procedure fl_printer_set_dialog_from
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_from, "fl_printer_set_dialog_from");
    pragma Inline (fl_printer_set_dialog_from);

    function fl_printer_get_dialog_to
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_to, "fl_printer_get_dialog_to");
    pragma Inline (fl_printer_get_dialog_to);

    procedure fl_printer_set_dialog_to
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_to, "fl_printer_set_dialog_to");
    pragma Inline (fl_printer_set_dialog_to);

    function fl_printer_get_dialog_properties
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_properties, "fl_printer_get_dialog_properties");
    pragma Inline (fl_printer_get_dialog_properties);

    procedure fl_printer_set_dialog_properties
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_properties, "fl_printer_set_dialog_properties");
    pragma Inline (fl_printer_set_dialog_properties);

    function fl_printer_get_dialog_copyno
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_copyno, "fl_printer_get_dialog_copyno");
    pragma Inline (fl_printer_get_dialog_copyno);

    procedure fl_printer_set_dialog_copyno
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_copyno, "fl_printer_set_dialog_copyno");
    pragma Inline (fl_printer_set_dialog_copyno);

    function fl_printer_get_dialog_print_button
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_print_button, "fl_printer_get_dialog_print_button");
    pragma Inline (fl_printer_get_dialog_print_button);

    procedure fl_printer_set_dialog_print_button
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_print_button, "fl_printer_set_dialog_print_button");
    pragma Inline (fl_printer_set_dialog_print_button);

    function fl_printer_get_dialog_cancel_button
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_cancel_button, "fl_printer_get_dialog_cancel_button");
    pragma Inline (fl_printer_get_dialog_cancel_button);

    procedure fl_printer_set_dialog_cancel_button
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_cancel_button, "fl_printer_set_dialog_cancel_button");
    pragma Inline (fl_printer_set_dialog_cancel_button);

    function fl_printer_get_dialog_print_to_file
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_dialog_print_to_file, "fl_printer_get_dialog_print_to_file");
    pragma Inline (fl_printer_get_dialog_print_to_file);

    procedure fl_printer_set_dialog_print_to_file
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_dialog_print_to_file, "fl_printer_set_dialog_print_to_file");
    pragma Inline (fl_printer_set_dialog_print_to_file);

    function fl_printer_get_property_title
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_property_title, "fl_printer_get_property_title");
    pragma Inline (fl_printer_get_property_title);

    procedure fl_printer_set_property_title
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_property_title, "fl_printer_set_property_title");
    pragma Inline (fl_printer_set_property_title);

    function fl_printer_get_property_pagesize
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_property_pagesize, "fl_printer_get_property_pagesize");
    pragma Inline (fl_printer_get_property_pagesize);

    procedure fl_printer_set_property_pagesize
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_property_pagesize, "fl_printer_set_property_pagesize");
    pragma Inline (fl_printer_set_property_pagesize);

    function fl_printer_get_property_mode
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_property_mode, "fl_printer_get_property_mode");
    pragma Inline (fl_printer_get_property_mode);

    procedure fl_printer_set_property_mode
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_property_mode, "fl_printer_set_property_mode");
    pragma Inline (fl_printer_set_property_mode);

    function fl_printer_get_property_use
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_property_use, "fl_printer_get_property_use");
    pragma Inline (fl_printer_get_property_use);

    procedure fl_printer_set_property_use
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_property_use, "fl_printer_set_property_use");
    pragma Inline (fl_printer_set_property_use);

    function fl_printer_get_property_save
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_property_save, "fl_printer_get_property_save");
    pragma Inline (fl_printer_get_property_save);

    procedure fl_printer_set_property_save
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_property_save, "fl_printer_set_property_save");
    pragma Inline (fl_printer_set_property_save);

    function fl_printer_get_property_cancel
        return Interfaces.C.Strings.chars_ptr;
    pragma Import (C, fl_printer_get_property_cancel, "fl_printer_get_property_cancel");
    pragma Inline (fl_printer_get_property_cancel);

    procedure fl_printer_set_property_cancel
           (V : in Interfaces.C.Strings.chars_ptr);
    pragma Import (C, fl_printer_set_property_cancel, "fl_printer_set_property_cancel");
    pragma Inline (fl_printer_set_property_cancel);




    function fl_printer_start_job
           (D : in Storage.Integer_Address;
            C : in Interfaces.C.int)
        return Interfaces.C.int;
    pragma Import (C, fl_printer_start_job, "fl_printer_start_job");
    pragma Inline (fl_printer_start_job);

    function fl_printer_start_job2
           (D    : in     Storage.Integer_Address;
            C    : in     Interfaces.C.int;
            F, T :    out Interfaces.C.int)
        return Interfaces.C.int;
    pragma Import (C, fl_printer_start_job2, "fl_printer_start_job2");
    pragma Inline (fl_printer_start_job2);

    procedure fl_printer_end_job
           (D : in Storage.Integer_Address);
    pragma Import (C, fl_printer_end_job, "fl_printer_end_job");
    pragma Inline (fl_printer_end_job);

    function fl_printer_start_page
           (D : in Storage.Integer_Address)
        return Interfaces.C.int;
    pragma Import (C, fl_printer_start_page, "fl_printer_start_page");
    pragma Inline (fl_printer_start_page);

    function fl_printer_end_page
           (D : in Storage.Integer_Address)
        return Interfaces.C.int;
    pragma Import (C, fl_printer_end_page, "fl_printer_end_page");
    pragma Inline (fl_printer_end_page);




    procedure fl_printer_margins
           (D          : in     Storage.Integer_Address;
            L, T, R, B :    out Interfaces.C.int);
    pragma Import (C, fl_printer_margins, "fl_printer_margins");
    pragma Inline (fl_printer_margins);

    function fl_printer_printable_rect
           (D    : in     Storage.Integer_Address;
            W, H :    out Interfaces.C.int)
        return Interfaces.C.int;
    pragma Import (C, fl_printer_printable_rect, "fl_printer_printable_rect");
    pragma Inline (fl_printer_printable_rect);

    procedure fl_printer_get_origin
           (D    : in     Storage.Integer_Address;
            X, Y :    out Interfaces.C.int);
    pragma Import (C, fl_printer_get_origin, "fl_printer_get_origin");
    pragma Inline (fl_printer_get_origin);

    procedure fl_printer_set_origin
           (D    : in Storage.Integer_Address;
            X, Y : in Interfaces.C.int);
    pragma Import (C, fl_printer_set_origin, "fl_printer_set_origin");
    pragma Inline (fl_printer_set_origin);

    procedure fl_printer_rotate
           (D : in Storage.Integer_Address;
            R : in Interfaces.C.C_float);
    pragma Import (C, fl_printer_rotate, "fl_printer_rotate");
    pragma Inline (fl_printer_rotate);

    procedure fl_printer_scale
           (D    : in Storage.Integer_Address;
            X, Y : in Interfaces.C.C_float);
    pragma Import (C, fl_printer_scale, "fl_printer_scale");
    pragma Inline (fl_printer_scale);

    procedure fl_printer_translate
           (D    : in Storage.Integer_Address;
            X, Y : in Interfaces.C.int);
    pragma Import (C, fl_printer_translate, "fl_printer_translate");
    pragma Inline (fl_printer_translate);

    procedure fl_printer_untranslate
           (D : in Storage.Integer_Address);
    pragma Import (C, fl_printer_untranslate, "fl_printer_untranslate");
    pragma Inline (fl_printer_untranslate);




    procedure fl_printer_print_widget
           (D, I   : in Storage.Integer_Address;
            DX, DY : in Interfaces.C.int);
    pragma Import (C, fl_printer_print_widget, "fl_printer_print_widget");
    pragma Inline (fl_printer_print_widget);

    procedure fl_printer_print_window_part
           (D, I               : in Storage.Integer_Address;
            X, Y, W, H, DX, DY : in Interfaces.C.int);
    pragma Import (C, fl_printer_print_window_part, "fl_printer_print_window_part");
    pragma Inline (fl_printer_print_window_part);




    procedure fl_printer_set_current
           (D : in Storage.Integer_Address);
    pragma Import (C, fl_printer_set_current, "fl_printer_set_current");
    pragma Inline (fl_printer_set_current);




    -------------------
    --  Destructors  --
    -------------------

    procedure Finalize
           (This : in out Printer) is
    begin
        if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then
            free_fl_printer (This.Void_Ptr);
            This.Void_Ptr := Null_Pointer;
        end if;
    end Finalize;


    procedure Finalize
           (This : in out Printer_Final_Controller)
    is
        use Interfaces.C.Strings;
    begin
        Free (Dialog_Title);
        Free (Dialog_Printer);
        Free (Dialog_Range);
        Free (Dialog_Copies);
        Free (Dialog_All);
        Free (Dialog_Pages);
        Free (Dialog_From);
        Free (Dialog_To);
        Free (Dialog_Properties);
        Free (Dialog_Copyno);
        Free (Dialog_Print_Button);
        Free (Dialog_Cancel_Button);
        Free (Dialog_Print_To_File);
        Free (Property_Title);
        Free (Property_Pagesize);
        Free (Property_Mode);
        Free (Property_Use);
        Free (Property_Save);
        Free (Property_Cancel);
    end Finalize;




    --------------------
    --  Constructors  --
    --------------------

    package body Forge is

        function Create
            return Printer is
        begin
            return This : Printer do
                This.Void_Ptr := new_fl_printer;
            end return;
        end Create;

        pragma Inline (Create);

    end Forge;




    -------------------------
    --  Static Attributes  --
    -------------------------

    function Get_Dialog_Title
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_title);
    end Get_Dialog_Title;


    procedure Set_Dialog_Title
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Title);
        Dialog_Title := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_title (Dialog_Title);
    end Set_Dialog_Title;


    function Get_Dialog_Printer
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_printer);
    end Get_Dialog_Printer;


    procedure Set_Dialog_Printer
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Printer);
        Dialog_Printer := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_printer (Dialog_Printer);
    end Set_Dialog_Printer;


    function Get_Dialog_Range
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_range);
    end Get_Dialog_Range;


    procedure Set_Dialog_Range
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Range);
        Dialog_Range := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_range (Dialog_Range);
    end Set_Dialog_Range;


    function Get_Dialog_Copies
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_copies);
    end Get_Dialog_Copies;


    procedure Set_Dialog_Copies
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Copies);
        Dialog_Copies := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_copies (Dialog_Copies);
    end Set_Dialog_Copies;


    function Get_Dialog_All
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_all);
    end Get_Dialog_All;


    procedure Set_Dialog_All
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_All);
        Dialog_All := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_all (Dialog_All);
    end Set_Dialog_All;


    function Get_Dialog_Pages
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_pages);
    end Get_Dialog_Pages;


    procedure Set_Dialog_Pages
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Pages);
        Dialog_Pages := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_pages (Dialog_Pages);
    end Set_Dialog_Pages;


    function Get_Dialog_From
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_from);
    end Get_Dialog_From;


    procedure Set_Dialog_From
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_From);
        Dialog_From := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_from (Dialog_From);
    end Set_Dialog_From;


    function Get_Dialog_To
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_to);
    end Get_Dialog_To;


    procedure Set_Dialog_To
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_To);
        Dialog_To := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_to (Dialog_To);
    end Set_Dialog_To;


    function Get_Dialog_Properties
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_properties);
    end Get_Dialog_Properties;


    procedure Set_Dialog_Properties
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Properties);
        Dialog_Properties := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_properties (Dialog_Properties);
    end Set_Dialog_Properties;


    function Get_Dialog_Number_Copies
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_copyno);
    end Get_Dialog_Number_Copies;


    procedure Set_Dialog_Number_Copies
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Copyno);
        Dialog_Copyno := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_copyno (Dialog_Copyno);
    end Set_Dialog_Number_Copies;


    function Get_Dialog_Print_Button
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_print_button);
    end Get_Dialog_Print_Button;


    procedure Set_Dialog_Print_Button
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Print_Button);
        Dialog_Print_Button := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_print_button (Dialog_Print_Button);
    end Set_Dialog_Print_Button;


    function Get_Dialog_Cancel_Button
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_cancel_button);
    end Get_Dialog_Cancel_Button;


    procedure Set_Dialog_Cancel_Button
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Cancel_Button);
        Dialog_Cancel_Button := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_cancel_button (Dialog_Cancel_Button);
    end Set_Dialog_Cancel_Button;


    function Get_Dialog_Print_To_File
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_dialog_print_to_file);
    end Get_Dialog_Print_To_File;


    procedure Set_Dialog_Print_To_File
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Dialog_Print_To_File);
        Dialog_Print_To_File := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_dialog_print_to_file (Dialog_Print_To_File);
    end Set_Dialog_Print_To_File;


    function Get_Property_Title
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_property_title);
    end Get_Property_Title;


    procedure Set_Property_Title
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Property_Title);
        Property_Title := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_property_title (Property_Title);
    end Set_Property_Title;


    function Get_Property_Page_Size
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_property_pagesize);
    end Get_Property_Page_Size;


    procedure Set_Property_Page_Size
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Property_Pagesize);
        Property_Pagesize := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_property_pagesize (Property_Pagesize);
    end Set_Property_Page_Size;


    function Get_Property_Mode
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_property_mode);
    end Get_Property_Mode;


    procedure Set_Property_Mode
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Property_Mode);
        Property_Mode := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_property_mode (Property_Mode);
    end Set_Property_Mode;


    function Get_Property_Use
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_property_use);
    end Get_Property_Use;


    procedure Set_Property_Use
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Property_Use);
        Property_Use := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_property_use (Property_Use);
    end Set_Property_Use;


    function Get_Property_Save
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_property_save);
    end Get_Property_Save;


    procedure Set_Property_Save
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Property_Save);
        Property_Save := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_property_save (Property_Save);
    end Set_Property_Save;


    function Get_Property_Cancel
        return String is
    begin
        return Interfaces.C.Strings.Value (fl_printer_get_property_cancel);
    end Get_Property_Cancel;


    procedure Set_Property_Cancel
           (Value : in String) is
    begin
        Interfaces.C.Strings.Free (Property_Cancel);
        Property_Cancel := Interfaces.C.Strings.New_String (Value);
        fl_printer_set_property_cancel (Property_Cancel);
    end Set_Property_Cancel;




    -----------------------
    --  API Subprograms  --
    -----------------------

    function Get_Original_Driver
           (This : in out Printer)
        return FLTK.Devices.Graphics.Graphics_Driver_Reference is
    begin
        return raise Program_Error with "Won't be implemented until Graphics_Drivers taken care of";
    end Get_Original_Driver;




    procedure Start_Job
           (This  : in out Printer;
            Count : in     Natural := 0) is
    begin
        if fl_printer_start_job
            (This.Void_Ptr, Interfaces.C.int (Count)) /= 0
        then
            raise Page_Error;
        end if;
    end Start_Job;


    procedure Start_Job
           (This     : in out Printer;
            Count    : in     Natural := 0;
            From, To :    out Positive) is
    begin
        if fl_printer_start_job2
           (This.Void_Ptr,
            Interfaces.C.int (Count),
            Interfaces.C.int (From),
            Interfaces.C.int (To)) /= 0
        then
            raise Page_Error;
        end if;
    end Start_Job;


    procedure End_Job
           (This : in out Printer) is
    begin
        fl_printer_end_job (This.Void_Ptr);
    end End_Job;


    procedure Start_Page
           (This : in out Printer) is
    begin
        if fl_printer_start_page (This.Void_Ptr) /= 0 then
            raise Page_Error;
        end if;
    end Start_Page;


    procedure End_Page
           (This : in out Printer) is
    begin
        if fl_printer_end_page (This.Void_Ptr) /= 0 then
            raise Page_Error;
        end if;
    end End_Page;




    procedure Get_Margins
           (This                     : in     Printer;
            Left, Top, Right, Bottom :    out Integer) is
    begin
        fl_printer_margins
           (This.Void_Ptr,
            Interfaces.C.int (Left),
            Interfaces.C.int (Top),
            Interfaces.C.int (Right),
            Interfaces.C.int (Bottom));
    end Get_Margins;


    procedure Get_Printable_Rect
           (This : in     Printer;
            W, H :    out Integer) is
    begin
        if fl_printer_printable_rect
            (This.Void_Ptr, Interfaces.C.int (W), Interfaces.C.int (H)) /= 0
        then
            raise Page_Error;
        end if;
    end Get_Printable_Rect;


    procedure Get_Origin
           (This : in     Printer;
            X, Y :    out Integer) is
    begin
        fl_printer_get_origin (This.Void_Ptr, Interfaces.C.int (X), Interfaces.C.int (Y));
    end Get_Origin;


    procedure Set_Origin
           (This : in out Printer;
            X, Y : in     Integer) is
    begin
        fl_printer_set_origin
           (This.Void_Ptr,
            Interfaces.C.int (X),
            Interfaces.C.int (Y));
    end Set_Origin;


    procedure Rotate
           (This    : in out Printer;
            Degrees : in     Float) is
    begin
        fl_printer_rotate (This.Void_Ptr, Interfaces.C.C_float (Degrees));
    end Rotate;


    procedure Scale
           (This   : in out Printer;
            Factor : in     Float) is
    begin
        fl_printer_scale (This.Void_Ptr, Interfaces.C.C_float (Factor), 0.0);
    end Scale;


    procedure Scale
           (This               : in out Printer;
            Factor_X, Factor_Y : in     Float) is
    begin
        fl_printer_scale
           (This.Void_Ptr,
            Interfaces.C.C_float (Factor_X),
            Interfaces.C.C_float (Factor_Y));
    end Scale;


    procedure Translate
           (This             : in out Printer;
            Delta_X, Delta_Y : in     Integer) is
    begin
        fl_printer_translate
           (This.Void_Ptr,
            Interfaces.C.int (Delta_X),
            Interfaces.C.int (Delta_Y));
    end Translate;


    procedure Untranslate
           (This : in out Printer) is
    begin
        fl_printer_untranslate (This.Void_Ptr);
    end Untranslate;




    procedure Print_Widget
           (This               : in out Printer;
            Item               : in     FLTK.Widgets.Widget'Class;
            Offset_X, Offset_Y : in     Integer := 0) is
    begin
        fl_printer_print_widget
           (This.Void_Ptr,
            Wrapper (Item).Void_Ptr,
            Interfaces.C.int (Offset_X),
            Interfaces.C.int (Offset_Y));
    end Print_Widget;


    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) is
    begin
        fl_printer_print_window_part
           (This.Void_Ptr,
            Wrapper (Item).Void_Ptr,
            Interfaces.C.int (X),
            Interfaces.C.int (Y),
            Interfaces.C.int (W),
            Interfaces.C.int (H),
            Interfaces.C.int (Offset_X),
            Interfaces.C.int (Offset_Y));
    end Print_Window_Part;




    procedure Set_Current
           (This : in out Printer) is
    begin
        fl_printer_set_current (This.Void_Ptr);
        This.Set_Current_Bookkeep;
    end Set_Current;


end FLTK.Devices.Surface.Paged.Printers;