package Claw.Menus.Bar is

    -- This package contains menu bars.

    type Menu_Bar_Type is new Claw.Menus.Basic_Menu_Type with private;

    procedure Load (Menu_Bar : in out Menu_Bar_Type;
		    Menu_Name : in String);
	-- Load Menu_Name from a resource.
	-- Raises:
	--	Windows_Error if Windows reports an error.
	--	Already_Valid_Error if Menu_Bar is already valid.

    procedure Create (Menu_Bar : in out Menu_Bar_Type);
	-- Creates an empty Menu_Bar.
	-- Raises:
	--	Windows_Error if Windows reports an error.
	--	Already_Valid_Error if Menu_Bar is already valid.

private

    type Menu_Bar_Type is new Claw.Menus.Basic_Menu_Type with null record;

end Claw.Menus.Bar;