From fb37523537cdb69a31dede401a604981ce8b7b9d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 17 Jun 2017 11:28:39 +1000 Subject: Updated coding style, added progress log --- src/fltk-menu_items.adb | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'src/fltk-menu_items.adb') 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 -- cgit