diff options
| -rw-r--r-- | src/displays.adb | 6 |
1 files 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; |