diff options
Diffstat (limited to 'src/windows-editor.adb')
| -rw-r--r-- | src/windows-editor.adb | 13 |
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; |