summaryrefslogtreecommitdiff
path: root/src/fltk.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk.ads')
-rw-r--r--src/fltk.ads4
1 files changed, 2 insertions, 2 deletions
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,