From 11d2b6c11604a1e355e3f9b40762f59b4d434e07 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 9 Feb 2025 21:53:20 +1300 Subject: Untangling of main Fl.H binding map docs --- spec/fltk.ads | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'spec') diff --git a/spec/fltk.ads b/spec/fltk.ads index f5287de..db75720 100644 --- a/spec/fltk.ads +++ b/spec/fltk.ads @@ -367,6 +367,8 @@ package FLTK is -- Menu Flags -- + -- Should these be moved to FLTK.Menu_Items? + type Menu_Flag is private; function "+" (Left, Right : in Menu_Flag) return Menu_Flag; @@ -480,11 +482,10 @@ 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 := Null_Pointer; - Needs_Dealloc : Boolean := True; - end record; + type Wrapper is new Ada.Finalization.Limited_Controlled with record + Void_Ptr : Storage.Integer_Address := Null_Pointer; + Needs_Dealloc : Boolean := True; + end record; -- cgit