From 71c1c5bb789f315239a64cb22002088ddcb353b1 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 30 Apr 2018 01:33:49 +1000 Subject: Text_Displays finished, more things polished --- src/fltk-devices-surfaces-paged-printers.ads | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'src/fltk-devices-surfaces-paged-printers.ads') 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; -- cgit