From f18aa62c78dd25851d47b611f564a14fabb5a5e2 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 6 May 2018 13:54:08 +1000
Subject: Finished and polished FLTK, FLTK.Event, FLTK.Screen, FLTK.Static

---
 src/fltk-screen.adb | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src/fltk-screen.adb')

diff --git a/src/fltk-screen.adb b/src/fltk-screen.adb
index 284b0bd..e556d14 100644
--- a/src/fltk-screen.adb
+++ b/src/fltk-screen.adb
@@ -145,13 +145,12 @@ package body FLTK.Screen is
     --  Screen numbers in the range 1 .. Get_Count
     procedure DPI
            (Horizontal, Vertical :    out Float;
-            Screen_Number        : in     Integer := 1)
-    is
-        H, V : Interfaces.C.C_float;
+            Screen_Number        : in     Integer := 1) is
     begin
-        fl_screen_dpi (H, V, Interfaces.C.int (Screen_Number) - 1);
-        Horizontal := Float (H);
-        Vertical := Float (V);
+        fl_screen_dpi
+           (Interfaces.C.C_float (Horizontal),
+            Interfaces.C.C_float (Vertical),
+            Interfaces.C.int (Screen_Number) - 1);
     end DPI;
 
 
-- 
cgit