From c47bea48a24e51e178354f3e3bb53d8b9964b769 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 6 Feb 2024 21:53:06 +1300 Subject: Moved mouse cursors and added cursor functions to FLTK.Draw --- src/fltk-draw.ads | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/fltk-draw.ads') diff --git a/src/fltk-draw.ads b/src/fltk-draw.ads index e287f90..3ec3b94 100644 --- a/src/fltk-draw.ads +++ b/src/fltk-draw.ads @@ -168,6 +168,14 @@ package FLTK.Draw is procedure Set_Color (R, G, B : in Color_Component); + procedure Set_Cursor + (To : in Mouse_Cursor); + + procedure Set_Cursor + (To : in Mouse_Cursor; + Fore : in Color; + Back : in Color := White_Color); + function Get_Font return Font_Kind; -- cgit