That should fix the rightclick menu resizing issue

1 files changed, 8 insertions, 5 deletions

diff --git a/src/windows-editor.adb b/src/windows-editor.adb
index ca4bacf..fdf95c7 100644
--- a/src/windows-editor.adb
+++ b/src/windows-editor.adb
@@ -45,16 +45,19 @@ package body Windows.Editor is
                     Bar => MB.Menu_Bar'(MB.Create
                         (0, 0, Width, Menu_Height, "")),
                     Popup => MU.Menu_Button'(MU.Create
-                        (0, 0, Width, Height, ""))) do
+                        (0, Menu_Height, Width, Height - Menu_Height, ""))) do
 
+            This.Editor.Set_Text_Font (Courier);
             This.Add (This.Editor);
-            This.Add (This.Bar);
+
             This.Bar.Set_Box (No_Box);
-            This.Editor.Add (This.Popup);
+            This.Add (This.Bar);
+
+            This.Popup.Set_Box (No_Box);
             This.Popup.Set_Popup_Kind (MU.Popup3);
-            This.Editor.Set_Text_Font (Courier);
+            This.Add (This.Popup);
+
             This.Set_Resizable (This.Editor);
-            This.Editor.Set_Resizable (This.Popup);
             This.Set_Size_Range (Min_Editor_Width, Min_Editor_Height);
             This.Set_Icon (Logo);
         end return;