diff options
Diffstat (limited to 'src/editors.ads')
| -rw-r--r-- | src/editors.ads | 19 |
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; |