summaryrefslogtreecommitdiff
path: root/src/windows-editor.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/windows-editor.adb')
-rw-r--r--src/windows-editor.adb11
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);