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.ads | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/fltk-devices-surfaces.ads b/src/fltk-devices-surfaces.ads
index da3d0a6..9c453e1 100644
--- a/src/fltk-devices-surfaces.ads
+++ b/src/fltk-devices-surfaces.ads
@@ -25,10 +25,10 @@ package FLTK.Devices.Surfaces is
 
 
     function Get_Current
-        return access Surface_Device;
+        return access Surface_Device'Class;
 
     procedure Set_Current
-           (This : in out Surface_Device);
+           (This : in out Surface_Device'Class);
 
 
 private
@@ -41,7 +41,7 @@ private
 
 
     Original_Surface : aliased Surface_Device;
-    Current_Ptr : access Surface_Device := Original_Surface'Access;
+    Current_Ptr : access Surface_Device'Class := Original_Surface'Access;
 
 
 end FLTK.Devices.Surfaces;
-- 
cgit