1 files changed, 8 insertions, 0 deletions
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;