diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2018-03-25 00:28:55 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2018-03-25 00:28:55 +1100 |
| commit | 7c8cb6a77c65c14421abaa8882e153e90e725166 (patch) | |
| tree | c3eabe0caf2bdb0f77ce73d9cc67569618c824df /src/fltk-devices-surfaces.adb | |
| parent | 5aa2cbc50e016fd833b35603c73b0a88692607f3 (diff) | |
Added FLTK.Devices.Surfaces.Paged
Diffstat (limited to 'src/fltk-devices-surfaces.adb')
| -rw-r--r-- | src/fltk-devices-surfaces.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fltk-devices-surfaces.adb b/src/fltk-devices-surfaces.adb index a0c5042..d32adda 100644 --- a/src/fltk-devices-surfaces.adb +++ b/src/fltk-devices-surfaces.adb @@ -69,14 +69,14 @@ package body FLTK.Devices.Surfaces is function Get_Current - return access Surface_Device is + return access Surface_Device'Class is begin return Current_Ptr; end Get_Current; procedure Set_Current - (This : in out Surface_Device) is + (This : in out Surface_Device'Class) is begin fl_surface_set_current (This.Void_Ptr); Current_Ptr := This'Unchecked_Access; |