diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-21 21:04:54 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-21 21:04:54 +1300 |
| commit | b4438b2fbe895694be98e6e8426103deefc51448 (patch) | |
| tree | 760d86cd7c06420a91dad102cc9546aee73146fc /src/fltk-screen.ads | |
| parent | a4703a65b015140cd4a7a985db66264875ade734 (diff) | |
Split public API and private implementation files into different directories
Diffstat (limited to 'src/fltk-screen.ads')
| -rw-r--r-- | src/fltk-screen.ads | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/src/fltk-screen.ads b/src/fltk-screen.ads deleted file mode 100644 index be28134..0000000 --- a/src/fltk-screen.ads +++ /dev/null @@ -1,96 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -package FLTK.Screen is - - - function Get_X - return Integer; - - function Get_Y - return Integer; - - function Get_W - return Integer; - - function Get_H - return Integer; - - - - - function Count - return Integer; - - -- Screen numbers in the range 1 .. Count - procedure DPI - (Horizontal, Vertical : out Float; - Screen_Number : in Integer := 1); - - - - - function Containing - (X, Y : in Integer) - return Integer; - - function Containing - (X, Y, W, H : in Integer) - return Integer; - - - - - procedure Work_Area - (X, Y, W, H : out Integer; - Pos_X, Pos_Y : in Integer); - - procedure Work_Area - (X, Y, W, H : out Integer; - Screen_Num : in Integer); - - procedure Work_Area - (X, Y, W, H : out Integer); - - - - - procedure Bounding_Rect - (X, Y, W, H : out Integer; - Pos_X, Pos_Y : in Integer); - - procedure Bounding_Rect - (X, Y, W, H : out Integer; - Screen_Num : in Integer); - - procedure Bounding_Rect - (X, Y, W, H : out Integer); - - procedure Bounding_Rect - (X, Y, W, H : out Integer; - PX, PY, PW, PH : in Integer); - - -private - - - pragma Inline (Get_X); - pragma Inline (Get_Y); - pragma Inline (Get_W); - pragma Inline (Get_H); - - - pragma Inline (Count); - pragma Inline (DPI); - - - pragma Inline (Containing); - pragma Inline (Work_Area); - pragma Inline (Bounding_Rect); - - -end FLTK.Screen; - |