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-widgets-groups-windows.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/fltk-widgets-groups-windows.adb') diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb index c1ffb31..68b2301 100644 --- a/src/fltk-widgets-groups-windows.adb +++ b/src/fltk-widgets-groups-windows.adb @@ -516,7 +516,7 @@ package body FLTK.Widgets.Groups.Windows is procedure Set_Cursor (This : in out Window; - To : in Mouse_Cursor) is + To : in Mouse_Cursor_Kind) is begin fl_window_set_cursor (This.Void_Ptr, Cursor_Values (To)); end Set_Cursor; @@ -537,7 +537,7 @@ package body FLTK.Widgets.Groups.Windows is procedure Set_Default_Cursor (This : in out Window; - To : in Mouse_Cursor) is + To : in Mouse_Cursor_Kind) is begin fl_window_set_default_cursor (This.Void_Ptr, Cursor_Values (To)); end Set_Default_Cursor; -- cgit