From c5b296567825c48d3658d62f01ec770449379e85 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 20 Feb 2024 19:42:18 +1300
Subject: Changed Mouse_Cursor to Mouse_Cursor_Kind for naming consistency

---
 src/fltk.ads | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/fltk.ads')

diff --git a/src/fltk.ads b/src/fltk.ads
index 7ad5c96..61775cb 100644
--- a/src/fltk.ads
+++ b/src/fltk.ads
@@ -86,7 +86,7 @@ package FLTK is
 
 
 
-    type Mouse_Cursor is
+    type Mouse_Cursor_Kind is
        (Default_Mouse,
         Arrow_Mouse,
         Crosshair_Mouse,
@@ -401,7 +401,7 @@ private
 
     --  What delightful magic numbers FLTK cursors are!
     --  (These correspond to the enum found in Enumerations.H)
-    Cursor_Values : array (Mouse_Cursor) of Interfaces.C.int :=
+    Cursor_Values : array (Mouse_Cursor_Kind) of Interfaces.C.int :=
            (Default_Mouse   => 0,
             Arrow_Mouse     => 35,
             Crosshair_Mouse => 66,
-- 
cgit