diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-11-09 09:12:26 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-11-09 09:12:26 +1100 |
| commit | 87063e50bfb3dd69d0806897d5b0d97b7d48f92a (patch) | |
| tree | 100df0819fbf577dbb4164c7fe77e793551b0a4b /src/fltk_binding/fltk-widgets-menus.adb | |
| parent | 2b2ed338e7b4f7372fdd74feb33476dd7b94aea5 (diff) | |
Removed superfluous use clauses, styling now more standardised
Diffstat (limited to 'src/fltk_binding/fltk-widgets-menus.adb')
| -rw-r--r-- | src/fltk_binding/fltk-widgets-menus.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/fltk_binding/fltk-widgets-menus.adb b/src/fltk_binding/fltk-widgets-menus.adb index be5b7c3..7669820 100644 --- a/src/fltk_binding/fltk-widgets-menus.adb +++ b/src/fltk_binding/fltk-widgets-menus.adb @@ -118,11 +118,10 @@ package body FLTK.Widgets.Menus is Text : in String; Action : access Widget_Callback'Class := null; Shortcut : in Shortcut_Key := No_Key; - Flags : in Menu_Flag := Flag_Normal) is - + Flags : in Menu_Flag := Flag_Normal) + is Place : Interfaces.C.int; Callback, User_Data : System.Address; - begin if Action = null then Callback := System.Null_Address; |