From b81d4e31bc54ad83527eef800db6706ce967d5e1 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 26 Mar 2018 23:36:28 +1100
Subject: Added FLTK.Devices.Surfaces.Paged.Printers

---
 src/fltk-devices-surfaces.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/fltk-devices-surfaces.adb b/src/fltk-devices-surfaces.adb
index d32adda..7b95bec 100644
--- a/src/fltk-devices-surfaces.adb
+++ b/src/fltk-devices-surfaces.adb
@@ -76,7 +76,7 @@ package body FLTK.Devices.Surfaces is
 
 
     procedure Set_Current
-           (This : in out Surface_Device'Class) is
+           (This : in out Surface_Device) is
     begin
         fl_surface_set_current (This.Void_Ptr);
         Current_Ptr := This'Unchecked_Access;
-- 
cgit