diff options
Diffstat (limited to 'src/fltk-widgets-groups-windows-single-menu.adb')
| -rw-r--r-- | src/fltk-widgets-groups-windows-single-menu.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/fltk-widgets-groups-windows-single-menu.adb b/src/fltk-widgets-groups-windows-single-menu.adb index 85026f2..7a3d0c2 100644 --- a/src/fltk-widgets-groups-windows-single-menu.adb +++ b/src/fltk-widgets-groups-windows-single-menu.adb @@ -35,7 +35,8 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is pragma Inline (new_fl_menu_window); function new_fl_menu_window2 - (W, H : in Interfaces.C.int) + (W, H : in Interfaces.C.int; + Text : in Interfaces.C.char_array) return System.Address; pragma Import (C, new_fl_menu_window2, "new_fl_menu_window2"); pragma Inline (new_fl_menu_window2); @@ -141,13 +142,15 @@ package body FLTK.Widgets.Groups.Windows.Single.Menu is function Create - (W, H : in Integer) + (W, H : in Integer; + Text : in String) return Menu_Window is begin return This : Menu_Window do This.Void_Ptr := new_fl_menu_window2 (Interfaces.C.int (W), - Interfaces.C.int (H)); + Interfaces.C.int (H), + Interfaces.C.To_C (Text)); fl_group_end (This.Void_Ptr); fl_widget_set_user_data (This.Void_Ptr, |