diff options
Diffstat (limited to 'src/fltk-widgets-menus.adb')
-rw-r--r-- | src/fltk-widgets-menus.adb | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb index d0c0ed7..ddfc934 100644 --- a/src/fltk-widgets-menus.adb +++ b/src/fltk-widgets-menus.adb @@ -1,11 +1,16 @@ -with Interfaces.C; -with System; -with FLTK.Menu_Items; -use type System.Address; -use type Interfaces.C.int; -use type Interfaces.C.unsigned_long; +with + + Interfaces.C, + System, + FLTK.Menu_Items; + +use type + + System.Address, + Interfaces.C.int, + Interfaces.C.unsigned_long; package body FLTK.Widgets.Menus is @@ -30,6 +35,8 @@ package body FLTK.Widgets.Menus is pragma Import (C, menu_set_handle_hook, "menu_set_handle_hook"); + + function new_fl_menu (X, Y, W, H : in Interfaces.C.int; Text : in Interfaces.C.char_array) @@ -41,6 +48,8 @@ package body FLTK.Widgets.Menus is pragma Import (C, free_fl_menu, "free_fl_menu"); + + function fl_menu_add (M : in System.Address; T : in Interfaces.C.char_array; @@ -143,8 +152,6 @@ package body FLTK.Widgets.Menus is end Add; - - function Find_Item (This : in Menu'Class; Name : in String) @@ -158,8 +165,6 @@ package body FLTK.Widgets.Menus is end Find_Item; - - function Chosen (This : in Menu'Class) return FLTK.Menu_Items.Menu_Item is |