From d539a4637adf17eb9b92c71f61971ce774157f39 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 14 Nov 2016 13:33:24 +1100 Subject: That should fix the rightclick menu resizing issue --- src/windows-editor.adb | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src') 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; -- cgit