From a728c59a8c5eab457fa033babdce8ee3e74207ef Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 2 Mar 2025 16:11:43 +1300 Subject: Keeping up to date with minor rename in FLTK binding --- src/displays.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/displays.adb b/src/displays.adb index e7d241b..468ca70 100644 --- a/src/displays.adb +++ b/src/displays.adb @@ -3,7 +3,7 @@ with FLTK.Screen, - FLTK.Event, + FLTK.Events, Misc; @@ -175,12 +175,12 @@ 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.Press (FLTK.Event.Last_Key)) = FLTK.Handled + This.Key_Func (FLTK.Press (FLTK.Events.Last_Key)) = FLTK.Handled then return FLTK.Handled; elsif This.Mouse_Func /= null and then Event = FLTK.Release and then - This.Mouse_Func (FLTK.Event.Mouse_X, FLTK.Event.Mouse_Y) = FLTK.Handled + This.Mouse_Func (FLTK.Events.Mouse_X, FLTK.Events.Mouse_Y) = FLTK.Handled then return FLTK.Handled; -- cgit