From cdcf5839899276b041b56b70798055f0d438bbdb Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 9 May 2018 23:28:04 +1000 Subject: Text_Editor key bindings hopefully fixed, yet more polishing --- src/fltk-devices-surfaces.adb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/fltk-devices-surfaces.adb') diff --git a/src/fltk-devices-surfaces.adb b/src/fltk-devices-surfaces.adb index 7b95bec..400bd87 100644 --- a/src/fltk-devices-surfaces.adb +++ b/src/fltk-devices-surfaces.adb @@ -16,10 +16,12 @@ package body FLTK.Devices.Surfaces is (G : in System.Address) return System.Address; pragma Import (C, new_fl_surface, "new_fl_surface"); + pragma Inline (new_fl_surface); procedure free_fl_surface (S : in System.Address); pragma Import (C, free_fl_surface, "free_fl_surface"); + pragma Inline (free_fl_surface); @@ -27,10 +29,12 @@ package body FLTK.Devices.Surfaces is procedure fl_surface_set_current (S : in System.Address); pragma Import (C, fl_surface_set_current, "fl_surface_set_current"); + pragma Inline (fl_surface_set_current); function fl_surface_get_surface return System.Address; pragma Import (C, fl_surface_get_surface, "fl_surface_get_surface"); + pragma Inline (fl_surface_get_surface); -- cgit