diff options
Diffstat (limited to 'src/fltk-screen.ads')
-rw-r--r-- | src/fltk-screen.ads | 33 |
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; + |