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;