diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-20 19:42:18 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-20 19:42:18 +1300 |
| commit | c5b296567825c48d3658d62f01ec770449379e85 (patch) | |
| tree | be08ece88dc76bcaff14e6c1e6910b873b6a0e00 /src/fltk.ads | |
| parent | f18ea4474bb4905a00e0b39e7205c177ee994196 (diff) | |
Changed Mouse_Cursor to Mouse_Cursor_Kind for naming consistency
Diffstat (limited to 'src/fltk.ads')
| -rw-r--r-- | src/fltk.ads | 4 |
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, |