From b81d4e31bc54ad83527eef800db6706ce967d5e1 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 26 Mar 2018 23:36:28 +1100 Subject: Added FLTK.Devices.Surfaces.Paged.Printers --- src/fltk-devices-surfaces.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/fltk-devices-surfaces.ads') diff --git a/src/fltk-devices-surfaces.ads b/src/fltk-devices-surfaces.ads index 9c453e1..418903e 100644 --- a/src/fltk-devices-surfaces.ads +++ b/src/fltk-devices-surfaces.ads @@ -28,7 +28,7 @@ package FLTK.Devices.Surfaces is return access Surface_Device'Class; procedure Set_Current - (This : in out Surface_Device'Class); + (This : in out Surface_Device); private -- cgit