From 11d2b6c11604a1e355e3f9b40762f59b4d434e07 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
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