diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-13 12:29:26 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-13 12:29:26 +1300 |
| commit | 74cb50a7f7e14cec7195d30e50b76e17969c9e62 (patch) | |
| tree | 4d3941218bb7099bb317fbbb88dfb698a990161b /src/fltk-help_dialogs.adb | |
| parent | 36302e60475e3531d5034fd97cc87aabb9fbd588 (diff) | |
Help_Dialog now has Show_With_Args
Diffstat (limited to 'src/fltk-help_dialogs.adb')
| -rw-r--r-- | src/fltk-help_dialogs.adb | 15 |
1 files changed, 15 insertions, 0 deletions
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 |