diff options
Diffstat (limited to 'src/fltk-screen.ads')
| -rw-r--r-- | src/fltk-screen.ads | 72 |
1 files changed, 63 insertions, 9 deletions
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; |