From 41610565180a0d474039122eec8da61d3943b5b8 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber 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(+) (limited to 'src/fltk-devices-surfaces.ads') 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