xhads/source/menu.ads

50 lines
1.5 KiB
Ada

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;
height : 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; center : in boolean);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end menu;