summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2016-11-14 13:33:24 +1100
committerJed Barber <jjbarber@y7mail.com>2016-11-14 13:33:24 +1100
commitd539a4637adf17eb9b92c71f61971ce774157f39 (patch)
tree5e3f0d166487e117723f61bff1b2a2e8329d06fe /src
parent1e205182f6ed6a2dcae68179aadff8c4b82b5c53 (diff)
That should fix the rightclick menu resizing issue
Diffstat (limited to 'src')
-rw-r--r--src/windows-editor.adb13
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;