summaryrefslogtreecommitdiff
path: root/src/fltk.ads
diff options
context:
space:
mode:
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;