src/fltk_binding/fltk-widgets-menus.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20


with Interfaces.C;
with System;
use type System.Address;


package body FLTK.Widgets.Menus is


    procedure Initialize
           (This : in out Menu) is
    begin
        Initialize (Widget (This));
        This.Menu_Item_List := Menu_Vectors.Empty_Vector;
    end Initialize;


end FLTK.Widgets.Menus;