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.ads | |
parent | 5aa2cbc50e016fd833b35603c73b0a88692607f3 (diff) |
Added FLTK.Devices.Surfaces.Paged
Diffstat (limited to 'src/fltk-devices-surfaces.ads')
-rw-r--r-- | src/fltk-devices-surfaces.ads | 6 |
1 files changed, 3 insertions, 3 deletions
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; |