Starting to sketch the outline of menu widgets and callbacks

1 files changed, 38 insertions, 0 deletions

diff --git a/src/fltk_binding/fltk-widgets-menus.ads b/src/fltk_binding/fltk-widgets-menus.ads
new file mode 100644
index 0000000..7a08de4
--- /dev/null
+++ b/src/fltk_binding/fltk-widgets-menus.ads
@@ -0,0 +1,38 @@
+
+
+private with Ada.Containers.Vectors;
+private with FLTK.Menu_Items;
+
+
+package FLTK.Widgets.Menus is
+
+
+    type Menu is abstract new Widget with private;
+    type Index is new Positive;
+
+
+    function Create
+           (X, Y, W, H : in Integer;
+            Text       : in String)
+        return Menu is abstract;
+
+
+private
+
+
+    type Menu_Item_Access is access all FLTK.Menu_Items.Menu_Item;
+    package Menu_Vectors is new Ada.Containers.Vectors (Index, Menu_Item_Access);
+
+
+    type Menu is abstract new Widget with
+        record
+            Menu_Item_List : Menu_Vectors.Vector;
+        end record;
+
+
+    overriding procedure Initialize
+           (This : in out Menu);
+
+
+end FLTK.Widgets.Menus;
+