diff options
Diffstat (limited to 'src/fltk-draw.adb')
| -rw-r--r-- | src/fltk-draw.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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 |