summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-valuators-adjusters.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-valuators-adjusters.adb')
-rw-r--r--src/fltk-widgets-valuators-adjusters.adb8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/fltk-widgets-valuators-adjusters.adb b/src/fltk-widgets-valuators-adjusters.adb
index 569f6dd..f91ffff 100644
--- a/src/fltk-widgets-valuators-adjusters.adb
+++ b/src/fltk-widgets-valuators-adjusters.adb
@@ -17,10 +17,12 @@ package body FLTK.Widgets.Valuators.Adjusters is
procedure adjuster_set_draw_hook
(W, D : in System.Address);
pragma Import (C, adjuster_set_draw_hook, "adjuster_set_draw_hook");
+ pragma Inline (adjuster_set_draw_hook);
procedure adjuster_set_handle_hook
(W, H : in System.Address);
pragma Import (C, adjuster_set_handle_hook, "adjuster_set_handle_hook");
+ pragma Inline (adjuster_set_handle_hook);
@@ -30,10 +32,12 @@ package body FLTK.Widgets.Valuators.Adjusters is
Text : in Interfaces.C.char_array)
return System.Address;
pragma Import (C, new_fl_adjuster, "new_fl_adjuster");
+ pragma Inline (new_fl_adjuster);
procedure free_fl_adjuster
(A : in System.Address);
pragma Import (C, free_fl_adjuster, "free_fl_adjuster");
+ pragma Inline (free_fl_adjuster);
@@ -42,11 +46,13 @@ package body FLTK.Widgets.Valuators.Adjusters is
(A : in System.Address)
return Interfaces.C.int;
pragma Import (C, fl_adjuster_is_soft, "fl_adjuster_is_soft");
+ pragma Inline (fl_adjuster_is_soft);
procedure fl_adjuster_set_soft
(A : in System.Address;
T : in Interfaces.C.int);
pragma Import (C, fl_adjuster_set_soft, "fl_adjuster_set_soft");
+ pragma Inline (fl_adjuster_set_soft);
@@ -54,12 +60,14 @@ package body FLTK.Widgets.Valuators.Adjusters is
procedure fl_adjuster_draw
(W : in System.Address);
pragma Import (C, fl_adjuster_draw, "fl_adjuster_draw");
+ pragma Inline (fl_adjuster_draw);
function fl_adjuster_handle
(W : in System.Address;
E : in Interfaces.C.int)
return Interfaces.C.int;
pragma Import (C, fl_adjuster_handle, "fl_adjuster_handle");
+ pragma Inline (fl_adjuster_handle);