From bfcc3811a3ce55cafa6f7809d0d92c87238ea032 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 15 Sep 2016 03:41:54 +1000
Subject: Menu callbacks working, also some quick testing code that'll probably
 get deleted later because wynaut

---
 src/adapad.adb | 35 +++++++++++++++++++++++++++++++++--
 1 file changed, 33 insertions(+), 2 deletions(-)

(limited to 'src/adapad.adb')

diff --git a/src/adapad.adb b/src/adapad.adb
index 7aab4af..2f4c483 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -5,19 +5,50 @@ with Editors;
 use Editors;
 with FLTK.Text_Buffers;
 use FLTK.Text_Buffers;
---  with FLTK.Widgets.Menus.Menu_Bars;
+with FLTK.Widgets;
+use FLTK.Widgets;
+with FLTK.Widgets.Menus;
+use FLTK.Widgets.Menus;
+
+
+with Ada.Text_IO;
 
 
 function AdaPad return Integer is
 
 
-    Pad : Editor_Window := Create (0, 0, 640, 400, "AdaPad");
+    Pad : aliased Editor_Window := Create (0, 0, 640, 400, "AdaPad");
     Buffer : Text_Buffer := Create;
 
 
+    type Editor_Callback is abstract new Widget_Callback with
+        record
+            Editor : access Editor_Window;
+        end record;
+
+
+    type Open_Callback is new Editor_Callback with null record;
+    Open_CB : aliased Open_Callback := (Editor => Pad'Access);
+
+
+    overriding procedure Call
+           (This : in     Open_Callback;
+            Item : in out Widget'Class) is
+    begin
+        Ada.Text_IO.Put_Line ("Open callback executed.");
+    end Call;
+
+
 begin
 
 
+    declare
+        Bar : Menu_Cursor := Pad.Get_Menu;
+    begin
+        Bar.Add ("File/Open", Open_CB'Access);
+    end;
+
+
     Pad.Set_Buffer (Buffer);
     Pad.Show;
     return FLTK.Run;
-- 
cgit