From 6e5b33a195324bd33d946cad15844139d1ba9650 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 15 May 2018 16:47:35 +1000 Subject: Updated to bring into line with FLTK binding --- src/displays.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/displays.adb') diff --git a/src/displays.adb b/src/displays.adb index 0a3df2b..e7d241b 100644 --- a/src/displays.adb +++ b/src/displays.adb @@ -25,13 +25,13 @@ package body Displays is My_Height : Integer := Misc.Max (Message_Box_Height + Stat_Box_Height, H); begin return This : Display := - (WD.Double_Window'(WD.Create (X, Y, My_Width, My_Height, Text)) with + (WD.Double_Window'(WD.Forge.Create (X, Y, My_Width, My_Height, Text)) with - Message_Box => B.Box'(B.Create + Message_Box => B.Box'(B.Forge.Create (0, 0, Message_Box_Width, Message_Box_Height, "")), - Level_Box => B.Box'(B.Create + Level_Box => B.Box'(B.Forge.Create (0, Message_Box_Height, Stat_Box_Width, Stat_Box_Height, "")), - Move_Box => B.Box'(B.Create + Move_Box => B.Box'(B.Forge.Create (Stat_Box_Width, Message_Box_Height, Stat_Box_Width, Stat_Box_Height, "")), Current_Grid => null, Key_Func => null, @@ -175,7 +175,7 @@ package body Displays is use type FLTK.Event_Kind, FLTK.Event_Outcome; begin if This.Key_Func /= null and then Event = FLTK.Keydown and then - This.Key_Func (FLTK.Event.Last_Keypress) = FLTK.Handled + This.Key_Func (FLTK.Press (FLTK.Event.Last_Key)) = FLTK.Handled then return FLTK.Handled; -- cgit