diff options
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 |