From f5f77c762534ed15adc557009d1a645e5fd998a5 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 16 Nov 2024 10:30:34 +1300 Subject: Reworked widget init/create subprograms --- src/fltk.ads | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/fltk.ads') diff --git a/src/fltk.ads b/src/fltk.ads index ec6012f..e686934 100644 --- a/src/fltk.ads +++ b/src/fltk.ads @@ -394,6 +394,9 @@ private + -- Note: This has to be Limited because otherwise the various init subprograms + -- wouldn't work, the widget callbacks wouldn't work, deallocation would be + -- a mess, really just all sorts of problems. type Wrapper is new Ada.Finalization.Limited_Controlled with record Void_Ptr : Storage.Integer_Address; -- cgit