Starting to sketch the outline of menu widgets and callbacks

1 files changed, 21 insertions, 0 deletions

diff --git a/src/fltk_binding/fltk-callbacks.ads b/src/fltk_binding/fltk-callbacks.ads
new file mode 100644
index 0000000..cc035ce
--- /dev/null
+++ b/src/fltk_binding/fltk-callbacks.ads
@@ -0,0 +1,21 @@
+
+
+package FLTK.Callbacks is
+
+
+    type Callback is private;
+
+
+    function Create
+           (Call : in access procedure)
+        return Callback;
+
+
+private
+
+
+    type Callback is null record;
+
+
+end FLTK.Callbacks;
+