diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-03-02 16:11:43 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-03-02 16:11:43 +1300 |
| commit | a728c59a8c5eab457fa033babdce8ee3e74207ef (patch) | |
| tree | 903d99f8a069d7b4f2f1aa5c062b9eafdefb6e95 | |
| parent | 6e5b33a195324bd33d946cad15844139d1ba9650 (diff) | |
| -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; |