Added some FLTK global screen functions

1 files changed, 33 insertions, 0 deletions

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;
+