Menu callbacks working, also some quick testing code that'll probably get deleted later because wynaut

1 files changed, 11 insertions, 8 deletions

diff --git a/src/editors.ads b/src/editors.ads
index 9dde658..fb8b7ae 100644
--- a/src/editors.ads
+++ b/src/editors.ads
@@ -4,6 +4,10 @@ with FLTK.Widgets.Groups.Windows.Double;
 use FLTK.Widgets.Groups.Windows.Double;
 with FLTK.Widgets.Groups.Text_Displays.Text_Editors;
 use FLTK.Widgets.Groups.Text_Displays.Text_Editors;
+with FLTK.Widgets.Menus;
+use FLTK.Widgets.Menus;
+with FLTK.Widgets.Menus.Menu_Bars;
+use FLTK.Widgets.Menus.Menu_Bars;
 with FLTK.Text_Buffers;
 use FLTK.Text_Buffers;
 
@@ -35,19 +39,18 @@ package Editors is
             Buff : in out Text_Buffer);
 
 
+    function Get_Menu
+           (This : in out Editor_Window)
+        return Menu_Cursor;
+
+
 private
 
 
     type Editor_Window is new Double_Window with
         record
-            --  Replace_Dialog : Window;
-            --  Replace_Find : Input;
-            --  Replace_With : Input;
-            --  Replace_All : Button;
-            --  Replace_Next : Enter_Button;
-            --  Replace_Cancel : Button;
-
-            The_Editor : Text_Editor := Text_Editor'(Create (0, 30, 640, 370, "AdaPad"));
+            Bar    : aliased Menu_Bar;
+            Editor : Text_Editor;
         end record;