From 468cdc37c83cd51eb1b0656bc7faeaf2099e0918 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 13 Mar 2018 17:46:33 +1100 Subject: Updated to work with non-inherited constructors in FLTK binding --- src/windows-editor.adb | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src/windows-editor.adb') 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); -- cgit