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
	);

	type enumeration is (
		gui_button, gui_line, gui_text, gui_icon, gui_sprite, gui_list
	);

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

	--~type gui_data is record
		--~text   : string;
		--~number : integer;
		--~image  : core.sprite;
	--~end record;

	type structure is record
		title  : core.short_string := "-                       ";
		toggle : core.signal_code  := core.signal_space;
		show   : boolean           := false;
		center : boolean           := false;
		resize : boolean           := false;
		x      : integer           := 0;
		y      : integer           := 0;
		width  : integer           := 0;
		height : integer           := 0;
	end record;

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

	active : style := main;

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

	procedure configure;
	procedure synchronize;

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

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

	procedure draw_text_box (text : in string);

	procedure draw_help_box (x, y, width, height : in integer; action : core.pointer := core.idle'access);

	procedure draw_frame (description : in string; x, y, width, height : in integer; action : core.pointer := core.idle'access);

	procedure draw_title_bar  (x, y, width  : in integer; title  : in string);
	procedure draw_fill_bar   (x, y, width  : in integer; fill   : in float);
	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; action : core.pointer := core.idle'access);

	procedure draw_state_box (x, y : in integer);

	procedure add_structure (data : in structure);

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

end ui;