From 66fba2bf75c5fc3deb2690a6a66cf504f47b7652 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 11 Nov 2024 13:32:57 +1300 Subject: Fl_Browser_ binding added --- src/fltk-widgets.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/fltk-widgets.ads') diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 5fe822d..9964bda 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -378,17 +378,17 @@ private -- the user data portion should always be a reference back to the Ada binding procedure Callback_Hook (W, U : in Storage.Integer_Address); - pragma Convention (C, Callback_Hook); + pragma Export (C, Callback_Hook, "widget_callback_hook"); procedure Draw_Hook (U : in Storage.Integer_Address); - pragma Convention (C, Draw_Hook); + pragma Export (C, Draw_Hook, "widget_draw_hook"); function Handle_Hook (U : in Storage.Integer_Address; E : in Interfaces.C.int) return Interfaces.C.int; - pragma Convention (C, Handle_Hook); + pragma Export (C, Handle_Hook, "widget_handle_hook"); -- cgit