summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
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;