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);