From 7c8cb6a77c65c14421abaa8882e153e90e725166 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 25 Mar 2018 00:28:55 +1100
Subject: Added FLTK.Devices.Surfaces.Paged

---
 src/fltk-devices-surfaces.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/fltk-devices-surfaces.adb')

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;
-- 
cgit