From 74cb50a7f7e14cec7195d30e50b76e17969c9e62 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 13 Jan 2025 12:29:26 +1300 Subject: Help_Dialog now has Show_With_Args --- src/fltk-help_dialogs.adb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src/fltk-help_dialogs.adb') diff --git a/src/fltk-help_dialogs.adb b/src/fltk-help_dialogs.adb index c7cf870..fc5ab07 100644 --- a/src/fltk-help_dialogs.adb +++ b/src/fltk-help_dialogs.adb @@ -6,6 +6,7 @@ with + FLTK.Show_Argv, Interfaces.C.Strings; use type @@ -38,6 +39,13 @@ package body FLTK.Help_Dialogs is pragma Import (C, fl_help_dialog_show, "fl_help_dialog_show"); pragma Inline (fl_help_dialog_show); + procedure fl_help_dialog_show2 + (D : in Storage.Integer_Address; + C : in Interfaces.C.int; + V : in Storage.Integer_Address); + pragma Import (C, fl_help_dialog_show2, "fl_help_dialog_show2"); + pragma Inline (fl_help_dialog_show2); + procedure fl_help_dialog_hide (D : in Storage.Integer_Address); pragma Import (C, fl_help_dialog_hide, "fl_help_dialog_hide"); @@ -199,6 +207,13 @@ package body FLTK.Help_Dialogs is end Show; + procedure Show_With_Args + (This : in out Help_Dialog) is + begin + FLTK.Show_Argv.Dispatch (fl_help_dialog_show2'Access, This.Void_Ptr); + end Show_With_Args; + + procedure Hide (This : in out Help_Dialog) is begin -- cgit