From b4438b2fbe895694be98e6e8426103deefc51448 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 21 Jan 2025 21:04:54 +1300 Subject: Split public API and private implementation files into different directories --- src/fltk-devices-surface-display.ads | 53 ------------------------------------ 1 file changed, 53 deletions(-) delete mode 100644 src/fltk-devices-surface-display.ads (limited to 'src/fltk-devices-surface-display.ads') diff --git a/src/fltk-devices-surface-display.ads b/src/fltk-devices-surface-display.ads deleted file mode 100644 index b581be7..0000000 --- a/src/fltk-devices-surface-display.ads +++ /dev/null @@ -1,53 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -with - - FLTK.Devices.Graphics; - - -package FLTK.Devices.Surface.Display is - - - type Display_Device is new Surface_Device with private; - - type Display_Device_Reference (Data : not null access Display_Device'Class) is - limited null record with Implicit_Dereference => Data; - - - - - package Forge is - - -- Docs say you shouldn't ever need to use this, but it's here anyway. - function Create - (Graphics : in out FLTK.Devices.Graphics.Graphics_Driver) - return Display_Device; - - end Forge; - - - - - function Get_Platform_Display - return Display_Device_Reference; - - -private - - - type Display_Device is new Surface_Device with null record; - - overriding procedure Finalize - (This : in out Display_Device); - - - pragma Inline (Get_Platform_Display); - - -end FLTK.Devices.Surface.Display; - - -- cgit