diff options
| -rw-r--r-- | src/windows-editor.adb | 13 | ||||
| -rw-r--r-- | to_do.txt | 1 |
2 files changed, 8 insertions, 6 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; @@ -3,7 +3,6 @@ To Do: - change build to be dynamically linked -- fix rightclick menu resizing - improve replace, undo/redo, jump to - grey out menu entries when appropriate - suppress unnecessary left/right scrollbar |