diff options
Diffstat (limited to 'src/displays.adb')
-rw-r--r-- | src/displays.adb | 10 |
1 files changed, 5 insertions, 5 deletions
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; |