diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/fltk-devices-surface-copy.adb (renamed from src/fltk-devices-surfaces-copy.adb) | 5 | ||||
| -rw-r--r-- | src/fltk-devices-surface-copy.ads (renamed from src/fltk-devices-surfaces-copy.ads) | 9 | ||||
| -rw-r--r-- | src/fltk-devices-surface-image.adb (renamed from src/fltk-devices-surfaces-image.adb) | 5 | ||||
| -rw-r--r-- | src/fltk-devices-surface-image.ads (renamed from src/fltk-devices-surfaces-image.ads) | 10 | ||||
| -rw-r--r-- | src/fltk-devices-surface-paged-printers.adb (renamed from src/fltk-devices-surfaces-paged-printers.adb) | 5 | ||||
| -rw-r--r-- | src/fltk-devices-surface-paged-printers.ads (renamed from src/fltk-devices-surfaces-paged-printers.ads) | 14 | ||||
| -rw-r--r-- | src/fltk-devices-surface-paged.adb (renamed from src/fltk-devices-surfaces-paged.adb) | 45 | ||||
| -rw-r--r-- | src/fltk-devices-surface-paged.ads (renamed from src/fltk-devices-surfaces-paged.ads) | 53 | ||||
| -rw-r--r-- | src/fltk-devices-surface.adb (renamed from src/fltk-devices-surfaces.adb) | 5 | ||||
| -rw-r--r-- | src/fltk-devices-surface.ads (renamed from src/fltk-devices-surfaces.ads) | 11 |
10 files changed, 75 insertions, 87 deletions
diff --git a/src/fltk-devices-surfaces-copy.adb b/src/fltk-devices-surface-copy.adb index 8c90ffb..fe96f91 100644 --- a/src/fltk-devices-surfaces-copy.adb +++ b/src/fltk-devices-surface-copy.adb @@ -9,7 +9,7 @@ with Interfaces.C; -package body FLTK.Devices.Surfaces.Copy is +package body FLTK.Devices.Surface.Copy is function new_fl_copy_surface @@ -151,5 +151,6 @@ package body FLTK.Devices.Surfaces.Copy is end Set_Current; -end FLTK.Devices.Surfaces.Copy; +end FLTK.Devices.Surface.Copy; + diff --git a/src/fltk-devices-surfaces-copy.ads b/src/fltk-devices-surface-copy.ads index 0e0e59b..f5069c5 100644 --- a/src/fltk-devices-surfaces-copy.ads +++ b/src/fltk-devices-surface-copy.ads @@ -9,7 +9,7 @@ with FLTK.Widgets.Groups.Windows; -package FLTK.Devices.Surfaces.Copy is +package FLTK.Devices.Surface.Copy is type Copy_Surface is new Surface_Device with private; @@ -68,18 +68,15 @@ private (This : in out Copy_Surface); - - pragma Inline (Get_W); pragma Inline (Get_H); - pragma Inline (Draw_Widget); pragma Inline (Draw_Decorated_Window); - pragma Inline (Set_Current); -end FLTK.Devices.Surfaces.Copy; +end FLTK.Devices.Surface.Copy; + diff --git a/src/fltk-devices-surfaces-image.adb b/src/fltk-devices-surface-image.adb index 56566ea..d9a5e1b 100644 --- a/src/fltk-devices-surfaces-image.adb +++ b/src/fltk-devices-surface-image.adb @@ -9,7 +9,7 @@ with Interfaces.C; -package body FLTK.Devices.Surfaces.Image is +package body FLTK.Devices.Surface.Image is function new_fl_image_surface @@ -166,5 +166,6 @@ package body FLTK.Devices.Surfaces.Image is end Set_Current; -end FLTK.Devices.Surfaces.Image; +end FLTK.Devices.Surface.Image; + diff --git a/src/fltk-devices-surfaces-image.ads b/src/fltk-devices-surface-image.ads index f30133b..961a9b2 100644 --- a/src/fltk-devices-surfaces-image.ads +++ b/src/fltk-devices-surface-image.ads @@ -11,7 +11,7 @@ with FLTK.Widgets.Groups.Windows; -package FLTK.Devices.Surfaces.Image is +package FLTK.Devices.Surface.Image is type Image_Surface is new Surface_Device with private; @@ -80,21 +80,17 @@ private (This : in out Image_Surface); - - pragma Inline (Is_Highres); - pragma Inline (Draw_Widget); pragma Inline (Draw_Decorated_Window); - pragma Inline (Get_Image); pragma Inline (Get_Highres_Image); - pragma Inline (Set_Current); -end FLTK.Devices.Surfaces.Image; +end FLTK.Devices.Surface.Image; + diff --git a/src/fltk-devices-surfaces-paged-printers.adb b/src/fltk-devices-surface-paged-printers.adb index 601f425..f5c964a 100644 --- a/src/fltk-devices-surfaces-paged-printers.adb +++ b/src/fltk-devices-surface-paged-printers.adb @@ -13,7 +13,7 @@ use type Interfaces.C.int; -package body FLTK.Devices.Surfaces.Paged.Printers is +package body FLTK.Devices.Surface.Paged.Printers is function new_fl_printer @@ -353,5 +353,6 @@ package body FLTK.Devices.Surfaces.Paged.Printers is end Set_Current; -end FLTK.Devices.Surfaces.Paged.Printers; +end FLTK.Devices.Surface.Paged.Printers; + diff --git a/src/fltk-devices-surfaces-paged-printers.ads b/src/fltk-devices-surface-paged-printers.ads index e1c2ee7..ac5294d 100644 --- a/src/fltk-devices-surfaces-paged-printers.ads +++ b/src/fltk-devices-surface-paged-printers.ads @@ -9,10 +9,10 @@ with FLTK.Widgets.Groups.Windows; -package FLTK.Devices.Surfaces.Paged.Printers is +package FLTK.Devices.Surface.Paged.Printers is - type Printer is new Paged_Surface with private; + type Printer is new Paged_Device with private; type Printer_Reference (Data : not null access Printer'Class) is limited null record with Implicit_Dereference => Data; @@ -110,20 +110,17 @@ package FLTK.Devices.Surfaces.Paged.Printers is private - type Printer is new Paged_Surface with null record; + type Printer is new Paged_Device 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); @@ -133,13 +130,12 @@ private 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; +end FLTK.Devices.Surface.Paged.Printers; + diff --git a/src/fltk-devices-surfaces-paged.adb b/src/fltk-devices-surface-paged.adb index 5de3fec..75957c5 100644 --- a/src/fltk-devices-surfaces-paged.adb +++ b/src/fltk-devices-surface-paged.adb @@ -13,7 +13,7 @@ use type Interfaces.C.int; -package body FLTK.Devices.Surfaces.Paged is +package body FLTK.Devices.Surface.Paged is function new_fl_paged_device @@ -136,7 +136,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Finalize - (This : in out Paged_Surface) is + (This : in out Paged_Device) is begin if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then free_fl_paged_device (This.Void_Ptr); @@ -150,9 +150,9 @@ package body FLTK.Devices.Surfaces.Paged is package body Forge is function Create - return Paged_Surface is + return Paged_Device is begin - return This : Paged_Surface do + return This : Paged_Device do This.Void_Ptr := new_fl_paged_device; end return; end Create; @@ -165,7 +165,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Start_Job - (This : in out Paged_Surface; + (This : in out Paged_Device; Count : in Natural) is begin if fl_paged_device_start_job @@ -177,7 +177,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Start_Job - (This : in out Paged_Surface; + (This : in out Paged_Device; Count : in Natural; From, To : in Positive) is begin @@ -193,14 +193,14 @@ package body FLTK.Devices.Surfaces.Paged is procedure End_Job - (This : in out Paged_Surface) is + (This : in out Paged_Device) is begin fl_paged_device_end_job (This.Void_Ptr); end End_Job; procedure Start_Page - (This : in out Paged_Surface) is + (This : in out Paged_Device) is begin if fl_paged_device_start_page (This.Void_Ptr) /= 0 then raise Page_Error; @@ -209,7 +209,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure End_Page - (This : in out Paged_Surface) is + (This : in out Paged_Device) is begin if fl_paged_device_end_page (This.Void_Ptr) /= 0 then raise Page_Error; @@ -220,7 +220,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Get_Margins - (This : in Paged_Surface; + (This : in Paged_Device; Left, Top, Right, Bottom : out Integer) is begin fl_paged_device_margins @@ -233,7 +233,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Get_Printable_Rect - (This : in Paged_Surface; + (This : in Paged_Device; W, H : out Integer) is begin if fl_paged_device_printable_rect @@ -245,7 +245,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Get_Origin - (This : in Paged_Surface; + (This : in Paged_Device; X, Y : out Integer) is begin fl_paged_device_get_origin (This.Void_Ptr, Interfaces.C.int (X), Interfaces.C.int (Y)); @@ -253,7 +253,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Set_Origin - (This : in out Paged_Surface; + (This : in out Paged_Device; X, Y : in Integer) is begin fl_paged_device_set_origin @@ -264,7 +264,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Rotate - (This : in out Paged_Surface; + (This : in out Paged_Device; Degrees : in Float) is begin fl_paged_device_rotate (This.Void_Ptr, Interfaces.C.C_float (Degrees)); @@ -272,7 +272,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Scale - (This : in out Paged_Surface; + (This : in out Paged_Device; Factor : in Float) is begin fl_paged_device_scale (This.Void_Ptr, Interfaces.C.C_float (Factor), 0.0); @@ -280,7 +280,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Scale - (This : in out Paged_Surface; + (This : in out Paged_Device; Factor_X, Factor_Y : in Float) is begin fl_paged_device_scale @@ -291,7 +291,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Translate - (This : in out Paged_Surface; + (This : in out Paged_Device; Delta_X, Delta_Y : in Integer) is begin fl_paged_device_translate @@ -302,7 +302,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Untranslate - (This : in out Paged_Surface) is + (This : in out Paged_Device) is begin fl_paged_device_untranslate (This.Void_Ptr); end Untranslate; @@ -311,7 +311,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Print_Widget - (This : in out Paged_Surface; + (This : in out Paged_Device; Item : in FLTK.Widgets.Widget'Class; Offset_X, Offset_Y : in Integer := 0) is begin @@ -324,7 +324,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Print_Window - (This : in out Paged_Surface; + (This : in out Paged_Device; Item : in FLTK.Widgets.Groups.Windows.Window'Class; Offset_X, Offset_Y : in Integer := 0) is begin @@ -337,7 +337,7 @@ package body FLTK.Devices.Surfaces.Paged is procedure Print_Window_Part - (This : in out Paged_Surface; + (This : in out Paged_Device; Item : in FLTK.Widgets.Groups.Windows.Window'Class; X, Y, W, H : in Integer; Offset_X, Offset_Y : in Integer := 0) is @@ -354,5 +354,6 @@ package body FLTK.Devices.Surfaces.Paged is end Print_Window_Part; -end FLTK.Devices.Surfaces.Paged; +end FLTK.Devices.Surface.Paged; + diff --git a/src/fltk-devices-surfaces-paged.ads b/src/fltk-devices-surface-paged.ads index 6c8a33d..1a3c13c 100644 --- a/src/fltk-devices-surfaces-paged.ads +++ b/src/fltk-devices-surface-paged.ads @@ -9,12 +9,12 @@ with FLTK.Widgets.Groups.Windows; -package FLTK.Devices.Surfaces.Paged is +package FLTK.Devices.Surface.Paged is - type Paged_Surface is new Surface_Device with private; + type Paged_Device is new Surface_Device with private; - type Paged_Surface_Reference (Data : not null access Paged_Surface'Class) is + type Paged_Device_Reference (Data : not null access Paged_Device'Class) is limited null record with Implicit_Dereference => Data; type Page_Format is @@ -37,7 +37,7 @@ package FLTK.Devices.Surfaces.Paged is package Forge is function Create - return Paged_Surface; + return Paged_Device; end Forge; @@ -45,76 +45,76 @@ package FLTK.Devices.Surfaces.Paged is procedure Start_Job - (This : in out Paged_Surface; + (This : in out Paged_Device; Count : in Natural); procedure Start_Job - (This : in out Paged_Surface; + (This : in out Paged_Device; Count : in Natural; From, To : in Positive); procedure End_Job - (This : in out Paged_Surface); + (This : in out Paged_Device); procedure Start_Page - (This : in out Paged_Surface); + (This : in out Paged_Device); procedure End_Page - (This : in out Paged_Surface); + (This : in out Paged_Device); procedure Get_Margins - (This : in Paged_Surface; + (This : in Paged_Device; Left, Top, Right, Bottom : out Integer); procedure Get_Printable_Rect - (This : in Paged_Surface; + (This : in Paged_Device; W, H : out Integer); procedure Get_Origin - (This : in Paged_Surface; + (This : in Paged_Device; X, Y : out Integer); procedure Set_Origin - (This : in out Paged_Surface; + (This : in out Paged_Device; X, Y : in Integer); procedure Rotate - (This : in out Paged_Surface; + (This : in out Paged_Device; Degrees : in Float); procedure Scale - (This : in out Paged_Surface; + (This : in out Paged_Device; Factor : in Float); procedure Scale - (This : in out Paged_Surface; + (This : in out Paged_Device; Factor_X, Factor_Y : in Float); procedure Translate - (This : in out Paged_Surface; + (This : in out Paged_Device; Delta_X, Delta_Y : in Integer); procedure Untranslate - (This : in out Paged_Surface); + (This : in out Paged_Device); procedure Print_Widget - (This : in out Paged_Surface; + (This : in out Paged_Device; Item : in FLTK.Widgets.Widget'Class; Offset_X, Offset_Y : in Integer := 0); procedure Print_Window - (This : in out Paged_Surface; + (This : in out Paged_Device; Item : in FLTK.Widgets.Groups.Windows.Window'Class; Offset_X, Offset_Y : in Integer := 0); procedure Print_Window_Part - (This : in out Paged_Surface; + (This : in out Paged_Device; Item : in FLTK.Widgets.Groups.Windows.Window'Class; X, Y, W, H : in Integer; Offset_X, Offset_Y : in Integer := 0); @@ -123,12 +123,10 @@ package FLTK.Devices.Surfaces.Paged is private - type Paged_Surface is new Surface_Device with null record; + type Paged_Device is new Surface_Device with null record; overriding procedure Finalize - (This : in out Paged_Surface); - - + (This : in out Paged_Device); pragma Inline (Start_Job); @@ -136,7 +134,6 @@ private pragma Inline (Start_Page); pragma Inline (End_Page); - pragma Inline (Get_Margins); pragma Inline (Get_Printable_Rect); pragma Inline (Get_Origin); @@ -146,11 +143,11 @@ private pragma Inline (Translate); pragma Inline (Untranslate); - pragma Inline (Print_Widget); pragma Inline (Print_Window); pragma Inline (Print_Window_Part); -end FLTK.Devices.Surfaces.Paged; +end FLTK.Devices.Surface.Paged; + diff --git a/src/fltk-devices-surfaces.adb b/src/fltk-devices-surface.adb index 58a5fa0..fc8e077 100644 --- a/src/fltk-devices-surfaces.adb +++ b/src/fltk-devices-surface.adb @@ -4,7 +4,7 @@ -- Released into the public domain -package body FLTK.Devices.Surfaces is +package body FLTK.Devices.Surface is function new_fl_surface @@ -88,5 +88,6 @@ begin Original_Surface.Needs_Dealloc := False; -end FLTK.Devices.Surfaces; +end FLTK.Devices.Surface; + diff --git a/src/fltk-devices-surfaces.ads b/src/fltk-devices-surface.ads index c92f93b..8ca367c 100644 --- a/src/fltk-devices-surfaces.ads +++ b/src/fltk-devices-surface.ads @@ -9,10 +9,10 @@ with FLTK.Devices.Graphics; -package FLTK.Devices.Surfaces is +package FLTK.Devices.Surface is - pragma Elaborate_Body (FLTK.Devices.Surfaces); + pragma Elaborate_Body (FLTK.Devices.Surface); @@ -52,17 +52,14 @@ private (This : in out Surface_Device); - - Original_Surface : aliased Surface_Device; Current_Ptr : access Surface_Device'Class := Original_Surface'Access; - - pragma Inline (Get_Current); pragma Inline (Set_Current); -end FLTK.Devices.Surfaces; +end FLTK.Devices.Surface; + |