summaryrefslogtreecommitdiff
path: root/src/fltk.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2024-11-16 10:30:34 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2024-11-16 10:30:34 +1300
commitf5f77c762534ed15adc557009d1a645e5fd998a5 (patch)
tree7b9d8c3099c303c74bf41079e9a0785983bd8a31 /src/fltk.ads
parent66fba2bf75c5fc3deb2690a6a66cf504f47b7652 (diff)
Reworked widget init/create subprograms
Diffstat (limited to 'src/fltk.ads')
-rw-r--r--src/fltk.ads3
1 files changed, 3 insertions, 0 deletions
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;