xhads/source/ui.ads

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core;

package ui is

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

	type style is (
		main,
		fairy,                  dwarf,                  gnoll,                  kobold,                 goblin,                 imp
	);

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

	active : style := main;

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

	procedure configure;

	procedure draw_icon     (data : in core.sprite; description : in string; x, y : in integer; action : access procedure := core.idle'access);
	procedure draw_overicon (data : in core.sprite; description : in string; x, y : in integer);

	procedure draw_text_box (x, y, width, height : in integer);

	procedure draw_frame (description : in string; x, y, width, height : in integer);

	procedure draw_title_bar  (x, y, width  : in integer; title  : in string);
	procedure draw_scroll_bar (x, y, height : in integer; offset : in integer);

	procedure draw_menu      (x, y, width, height : in integer);
	procedure draw_tiny_menu (x, y, width, height : in integer);

	procedure draw_icon_menu (description : in string; x, y, width, height : in integer);

	procedure draw_state_box (x, y : in integer);

	procedure write (text : in string; x, y : in integer);

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

end ui;