with core;

package menu is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type format is (
		separator, button, text_box, data_box, check_box, title_bar, scroll_bar, fill_bar
	);

	type codex is (
		none, attribute_information, skill_information, resource_information
	);

                                             ------------------------------------------------------------------------------------------

	type element is
	record
		kind : format;
		data : integer;
		text : core.short_string;
		icon : core.sprite;
	end record;

	type element_array is array (natural range <>) of element;

	type information is
	record
		title    : core.short_string;
		length   : integer;
		elements : access element_array;
	end record;

	type trait_array is array (codex) of information;

                                             ------------------------------------------------------------------------------------------

	trait : trait_array;

                                             ------------------------------------------------------------------------------------------

	procedure configure;

	procedure draw (index : in codex; x, y : in integer);

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end menu;