diff options
Diffstat (limited to 'src/windows-editor.adb')
-rw-r--r-- | src/windows-editor.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/windows-editor.adb b/src/windows-editor.adb index cfcf191..29b1c6e 100644 --- a/src/windows-editor.adb +++ b/src/windows-editor.adb @@ -21,7 +21,8 @@ package body Windows.Editor is Width : Integer := Min_Editor_Width; Height : Integer := Min_Editor_Height; - Menu_Height : Integer := 22; + + Menu_Height : constant Integer := 22; begin if Width < W then Width := W; @@ -32,13 +33,13 @@ package body Windows.Editor is end if; return This : Editor_Window := - (WD.Double_Window'(WD.Create (X, Y, Width, Height, Label_Text)) with + (WD.Double_Window'(WD.Forge.Create (X, Y, Width, Height, Label_Text)) with - Editor => TE.Text_Editor'(TE.Create + Editor => TE.Text_Editor'(TE.Forge.Create (0, Menu_Height, Width, Height - Menu_Height, "")), - Bar => MB.Menu_Bar'(MB.Create + Bar => MB.Menu_Bar'(MB.Forge.Create (0, 0, Width, Menu_Height, "")), - Popup => MU.Menu_Button'(MU.Create + Popup => MU.Menu_Button'(MU.Forge.Create (0, Menu_Height, Width, Height - Menu_Height, ""))) do This.Editor.Set_Text_Font (Courier); |