diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-11-14 12:07:00 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-14 12:07:00 +1100 |
commit | 1e205182f6ed6a2dcae68179aadff8c4b82b5c53 (patch) | |
tree | 6f8576401552c4d2954d118897323bc017afff3c /src/adapad.adb | |
parent | a8bebb0ece482e5e15f9178b01a4b085e52d9f1c (diff) |
Added Menu_Buttons to FLTK binding, added rightclick menu to Editor
Diffstat (limited to 'src/adapad.adb')
-rw-r--r-- | src/adapad.adb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/adapad.adb b/src/adapad.adb index e197097..dd5afd5 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -516,7 +516,7 @@ begin declare use FLTK.Widgets.Menus; - Bar : Menu_Cursor := Editor.Get_Menu; + Bar : Menu_Cursor := Editor.Get_Menu_Bar; begin Bar.Add (Text => "&File", Flags => Flag_Submenu); Bar.Add ("File/&New", New_CB'Access, Mod_Ctrl + 'n'); @@ -550,6 +550,18 @@ begin end; + declare + use FLTK.Widgets.Menus; + Pop : Menu_Cursor := Editor.Get_Rightclick_Menu; + begin + Pop.Add ("Cu&t", Cut_CB'Access); + Pop.Add ("&Copy", Copy_CB'Access); + Pop.Add ("&Paste", Paste_CB'Access); + Pop.Add ("&Delete", Delete_CB'Access, No_Key, Flag_Divider); + Pop.Add ("Select &All", Select_All_CB'Access); + end; + + Find.Set_Find_Callback (Do_Find_CB'Access); Replace.Set_Replace_Callback (Do_Replace_CB'Access); Buffer.Add_Modify_Callback (Mod_CB'Access); |