diff options
Diffstat (limited to 'src/fltk-devices-surfaces.ads')
| -rw-r--r-- | src/fltk-devices-surfaces.ads | 2 |
1 files changed, 1 insertions, 1 deletions
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 |