diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-06 21:53:06 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-06 21:53:06 +1300 |
commit | c47bea48a24e51e178354f3e3bb53d8b9964b769 (patch) | |
tree | 0235aa00983da4722cc49de315f76d3ea3978026 /src/fltk-draw.adb | |
parent | feef4803ef4cabd6190e5a76c34ccc9866da380d (diff) |
Moved mouse cursors and added cursor functions to FLTK.Draw
Diffstat (limited to 'src/fltk-draw.adb')
-rw-r--r-- | src/fltk-draw.adb | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/fltk-draw.adb b/src/fltk-draw.adb index 74dccb8..544d583 100644 --- a/src/fltk-draw.adb +++ b/src/fltk-draw.adb @@ -139,6 +139,17 @@ package body FLTK.Draw is pragma Import (C, fl_draw_set_color2, "fl_draw_set_color2"); pragma Inline (fl_draw_set_color2); + procedure fl_draw_set_cursor + (M : in Interfaces.C.int); + pragma Import (C, fl_draw_set_cursor, "fl_draw_set_cursor"); + pragma Inline (fl_draw_set_cursor); + + procedure fl_draw_set_cursor2 + (M : in Interfaces.C.int; + F, B : in Interfaces.C.unsigned); + pragma Import (C, fl_draw_set_cursor2, "fl_draw_set_cursor2"); + pragma Inline (fl_draw_set_cursor2); + function fl_draw_get_font return Interfaces.C.unsigned; pragma Import (C, fl_draw_get_font, "fl_draw_get_font"); @@ -798,6 +809,24 @@ package body FLTK.Draw is end Set_Color; + procedure Set_Cursor + (To : in Mouse_Cursor) is + begin + fl_draw_set_cursor (Cursor_Values (To)); + end Set_Cursor; + + procedure Set_Cursor + (To : in Mouse_Cursor; + Fore : in Color; + Back : in Color := White_Color) is + begin + fl_draw_set_cursor2 + (Cursor_Values (To), + Interfaces.C.unsigned (Fore), + Interfaces.C.unsigned (Back)); + end Set_Cursor; + + function Get_Font return Font_Kind is begin |