Untangling of main Fl.H binding map docs

1 files changed, 6 insertions, 5 deletions

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;