From ca9cca53a19145216cb0e00462db239e1194696d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 29 Apr 2018 00:39:36 +1000 Subject: FLTK.Event done, a whole bunch more polishing --- src/fltk-screen.ads | 72 ++++++++++++++++++++++++++++++++++++++++++++++------- 1 file changed, 63 insertions(+), 9 deletions(-) (limited to 'src/fltk-screen.ads') diff --git a/src/fltk-screen.ads b/src/fltk-screen.ads index 10060d4..0656619 100644 --- a/src/fltk-screen.ads +++ b/src/fltk-screen.ads @@ -3,21 +3,72 @@ 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 Get_X + return Integer; + function Get_Y + return Integer; - function Get_Count return Integer; + function Get_W + return Integer; + function Get_H + return Integer; - -- Screen numbers in the range 1 .. Get_Count - procedure Get_DPI + + + + 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 @@ -25,8 +76,11 @@ private pragma Inline (Get_Y); pragma Inline (Get_W); pragma Inline (Get_H); - pragma Inline (Get_Count); - pragma Inline (Get_DPI); + pragma Inline (Count); + pragma Inline (DPI); + pragma Inline (Containing); + pragma Inline (Work_Area); + pragma Inline (Bounding_Rect); end FLTK.Screen; -- cgit