From 619b3da9fbb37c57aedfc039cc813f6acf5569be Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 17 Nov 2024 17:15:53 +1300
Subject: Refactored Finalize subprograms and made note of potential future
 Widget issues there in fltk.ads

---
 src/fltk-environment.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fltk-environment.ads')

diff --git a/src/fltk-environment.ads b/src/fltk-environment.ads
index 132e610..be32eee 100644
--- a/src/fltk-environment.ads
+++ b/src/fltk-environment.ads
@@ -295,7 +295,7 @@ private
 
 
     type Pref_Group is new Wrapper with record
-        Root_Ptr : Storage.Integer_Address;
+        Root_Ptr : Storage.Integer_Address := Null_Pointer;
     end record;
 
     overriding procedure Finalize
-- 
cgit