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-widgets-groups-windows.adb | |
| parent | feef4803ef4cabd6190e5a76c34ccc9866da380d (diff) | |
Moved mouse cursors and added cursor functions to FLTK.Draw
Diffstat (limited to 'src/fltk-widgets-groups-windows.adb')
| -rw-r--r-- | src/fltk-widgets-groups-windows.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk-widgets-groups-windows.adb b/src/fltk-widgets-groups-windows.adb index 08becbc..c1ffb31 100644 --- a/src/fltk-widgets-groups-windows.adb +++ b/src/fltk-widgets-groups-windows.adb @@ -516,7 +516,7 @@ package body FLTK.Widgets.Groups.Windows is procedure Set_Cursor (This : in out Window; - To : in Cursor) is + To : in Mouse_Cursor) is begin fl_window_set_cursor (This.Void_Ptr, Cursor_Values (To)); end Set_Cursor; @@ -537,7 +537,7 @@ package body FLTK.Widgets.Groups.Windows is procedure Set_Default_Cursor (This : in out Window; - To : in Cursor) is + To : in Mouse_Cursor) is begin fl_window_set_default_cursor (This.Void_Ptr, Cursor_Values (To)); end Set_Default_Cursor; |