diff options
Diffstat (limited to 'src/fltk-menu_items.adb')
| -rw-r--r-- | src/fltk-menu_items.adb | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/fltk-menu_items.adb b/src/fltk-menu_items.adb index 4c42efc..80bcea7 100644 --- a/src/fltk-menu_items.adb +++ b/src/fltk-menu_items.adb @@ -1,7 +1,12 @@ -with Interfaces.C; -use type Interfaces.C.int; +with + + Interfaces.C; + +use type + + Interfaces.C.int; package body FLTK.Menu_Items is @@ -12,6 +17,9 @@ package body FLTK.Menu_Items is return Interfaces.C.int; pragma Import (C, fl_menuitem_value, "fl_menuitem_value"); + + + procedure fl_menuitem_activate (MI : in System.Address); pragma Import (C, fl_menuitem_activate, "fl_menuitem_activate"); @@ -40,8 +48,6 @@ package body FLTK.Menu_Items is end Activate; - - procedure Deactivate (Item : in Menu_Item) is begin |