From 41610565180a0d474039122eec8da61d3943b5b8 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 24 Oct 2021 20:06:15 +1300
Subject: Added pragma to ensure proper initialization of Surfaces

---
 src/fltk-devices-surfaces.ads | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/fltk-devices-surfaces.ads b/src/fltk-devices-surfaces.ads
index 24a2838..2d3678f 100644
--- a/src/fltk-devices-surfaces.ads
+++ b/src/fltk-devices-surfaces.ads
@@ -8,6 +8,11 @@ with
 package FLTK.Devices.Surfaces is
 
 
+    pragma Elaborate_Body (FLTK.Devices.Surfaces);
+
+
+
+
     type Surface_Device is new Device with private;
 
     type Surface_Device_Reference (Data : not null access Surface_Device'Class) is
-- 
cgit