From c5b296567825c48d3658d62f01ec770449379e85 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 20 Feb 2024 19:42:18 +1300 Subject: Changed Mouse_Cursor to Mouse_Cursor_Kind for naming consistency --- src/fltk-draw.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/fltk-draw.adb') diff --git a/src/fltk-draw.adb b/src/fltk-draw.adb index 544d583..626e017 100644 --- a/src/fltk-draw.adb +++ b/src/fltk-draw.adb @@ -810,13 +810,13 @@ package body FLTK.Draw is procedure Set_Cursor - (To : in Mouse_Cursor) is + (To : in Mouse_Cursor_Kind) is begin fl_draw_set_cursor (Cursor_Values (To)); end Set_Cursor; procedure Set_Cursor - (To : in Mouse_Cursor; + (To : in Mouse_Cursor_Kind; Fore : in Color; Back : in Color := White_Color) is begin -- cgit