summaryrefslogtreecommitdiff
path: root/src/fltk.ads
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2018-03-17 17:42:53 +1100
committerJed Barber <jjbarber@y7mail.com>2018-03-17 17:42:53 +1100
commit3dafc66bc620994493b0da6429f580272eef3116 (patch)
tree81c66267b0ca4b30d8fabfd0b0215bee98fb978a /src/fltk.ads
parentf6b72771e74236fdf222a59d3ad3c8d830cd6ab1 (diff)
Added FLTK.Widgets.Groups.Input_Choices
Diffstat (limited to 'src/fltk.ads')
-rw-r--r--src/fltk.ads3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fltk.ads b/src/fltk.ads
index 8a6a933..91a7b94 100644
--- a/src/fltk.ads
+++ b/src/fltk.ads
@@ -201,7 +201,8 @@ private
type Wrapper is abstract new Ada.Finalization.Limited_Controlled with
record
- Void_Ptr : System.Address;
+ Void_Ptr : System.Address;
+ Needs_Dealloc : Boolean := True;
end record;
-- with Type_Invariant => Has_Valid_Ptr (Wrapper);