diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-12-23 17:02:34 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-12-23 17:02:34 +1300 |
| commit | b3f9e96403aa5cb9d7db2330aa579356d1d58b6f (patch) | |
| tree | a2f6b68e3582b128e3a7e475757696f156084962 /src/fltk-devices-surfaces-paged-printers.ads | |
| parent | db014c7a249b319e40052f2cff6305b0d09d7ca5 (diff) | |
Tweaked the names of Surface_Device subhierarchy
Diffstat (limited to 'src/fltk-devices-surfaces-paged-printers.ads')
| -rw-r--r-- | src/fltk-devices-surfaces-paged-printers.ads | 145 |
1 files changed, 0 insertions, 145 deletions
diff --git a/src/fltk-devices-surfaces-paged-printers.ads b/src/fltk-devices-surfaces-paged-printers.ads deleted file mode 100644 index e1c2ee7..0000000 --- a/src/fltk-devices-surfaces-paged-printers.ads +++ /dev/null @@ -1,145 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -with - - FLTK.Widgets.Groups.Windows; - - -package FLTK.Devices.Surfaces.Paged.Printers is - - - type Printer is new Paged_Surface with private; - - type Printer_Reference (Data : not null access Printer'Class) is limited null record - with Implicit_Dereference => Data; - - - - - package Forge is - - function Create - return Printer; - - end Forge; - - - - - procedure Start_Job - (This : in out Printer; - Count : in Natural); - - procedure Start_Job - (This : in out Printer; - Count : in Natural; - From, To : in Positive); - - procedure End_Job - (This : in out Printer); - - procedure Start_Page - (This : in out Printer); - - procedure End_Page - (This : in out Printer); - - - - - procedure Get_Margins - (This : in Printer; - Left, Top, Right, Bottom : out Integer); - - procedure Get_Printable_Rect - (This : in Printer; - W, H : out Integer); - - procedure Get_Origin - (This : in Printer; - X, Y : out Integer); - - procedure Set_Origin - (This : in out Printer; - X, Y : in Integer); - - procedure Rotate - (This : in out Printer; - Degrees : in Float); - - procedure Scale - (This : in out Printer; - Factor : in Float); - - procedure Scale - (This : in out Printer; - Factor_X, Factor_Y : in Float); - - procedure Translate - (This : in out Printer; - Delta_X, Delta_Y : in Integer); - - procedure Untranslate - (This : in out Printer); - - - - - procedure Print_Widget - (This : in out Printer; - Item : in FLTK.Widgets.Widget'Class; - Offset_X, Offset_Y : in Integer := 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); - - - - - procedure Set_Current - (This : in out Printer); - - -private - - - type Printer is new Paged_Surface with null record; - - overriding procedure Finalize - (This : in out Printer); - - - - - pragma Inline (Start_Job); - pragma Inline (End_Job); - pragma Inline (Start_Page); - pragma Inline (End_Page); - - - pragma Inline (Get_Margins); - pragma Inline (Get_Printable_Rect); - pragma Inline (Get_Origin); - pragma Inline (Set_Origin); - pragma Inline (Rotate); - pragma Inline (Scale); - pragma Inline (Translate); - pragma Inline (Untranslate); - - - pragma Inline (Print_Widget); - pragma Inline (Print_Window_Part); - - - pragma Inline (Set_Current); - - -end FLTK.Devices.Surfaces.Paged.Printers; - |