Starting to sketch the outline of menu widgets and callbacks

1 files changed, 34 insertions, 0 deletions

diff --git a/src/fltk_binding/fltk-menu_items.adb b/src/fltk_binding/fltk-menu_items.adb
new file mode 100644
index 0000000..6620a64
--- /dev/null
+++ b/src/fltk_binding/fltk-menu_items.adb
@@ -0,0 +1,34 @@
+
+
+with Interfaces.C;
+with System;
+use type System.Address;
+
+
+package body FLTK.Menu_Items is
+
+
+    procedure Finalize
+           (This : in out Menu_Item) is
+    begin
+        null;
+    end Finalize;
+
+
+
+
+    function Create
+           (Text : in String;
+            Shortcut : in Shortcut_Key;
+            Action : in FLTK.Callbacks.Callback;
+            Flags : Menu_Flag)
+        return Menu_Item is
+    begin
+        return This : Menu_Item do
+            null;
+        end return;
+    end Create;
+
+
+end FLTK.Menu_Items;
+