diff options
author | Jed Barber <jjbarber@y7mail.com> | 2018-04-30 01:33:49 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2018-04-30 01:33:49 +1000 |
commit | 71c1c5bb789f315239a64cb22002088ddcb353b1 (patch) | |
tree | 41904e45fdc14149093a028b72283123d2743471 /src/fltk-devices-surfaces-paged-printers.ads | |
parent | ca9cca53a19145216cb0e00462db239e1194696d (diff) |
Text_Displays finished, more things polished
Diffstat (limited to 'src/fltk-devices-surfaces-paged-printers.ads')
-rw-r--r-- | src/fltk-devices-surfaces-paged-printers.ads | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/fltk-devices-surfaces-paged-printers.ads b/src/fltk-devices-surfaces-paged-printers.ads index 7eae340..b336373 100644 --- a/src/fltk-devices-surfaces-paged-printers.ads +++ b/src/fltk-devices-surfaces-paged-printers.ads @@ -10,6 +10,9 @@ 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; + @@ -109,5 +112,30 @@ private (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; |