From dc8e0bf275d2b0cc044022b13e5139d1cbc6fd86 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 30 Jul 2017 12:51:47 +1000 Subject: Added some FLTK global screen functions --- src/fltk-screen.ads | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 src/fltk-screen.ads (limited to 'src/fltk-screen.ads') diff --git a/src/fltk-screen.ads b/src/fltk-screen.ads new file mode 100644 index 0000000..10060d4 --- /dev/null +++ b/src/fltk-screen.ads @@ -0,0 +1,33 @@ + + +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_Count return Integer; + + + -- Screen numbers in the range 1 .. Get_Count + procedure Get_DPI + (Horizontal, Vertical : out Float; + Screen_Number : in Integer := 1); + + +private + + + pragma Inline (Get_X); + pragma Inline (Get_Y); + pragma Inline (Get_W); + pragma Inline (Get_H); + pragma Inline (Get_Count); + pragma Inline (Get_DPI); + + +end FLTK.Screen; + -- cgit