From bfcc3811a3ce55cafa6f7809d0d92c87238ea032 Mon Sep 17 00:00:00 2001 From: Jed Barber 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/editors.ads | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) (limited to 'src/editors.ads') 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; -- cgit