xhads/source/ui.ads

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

with core;

use type core.cursor_code;
use type core.signal_code;
use type core.point;
use type core.unstring;

package ui is

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

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

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

	style_count : constant natural := style'pos (style'last) + 1;

	monowidth  : constant natural := 9;
	monoheight : constant natural := 15;

	font : array (style) of core.font;

	active     : style   := main;
	prioritize : boolean := false;

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

	procedure configure;
	procedure synchronize;

	procedure echo (message : in string);

	procedure write (text : in string; x, y : in integer; tint : in core.colour := (others => 255); size : in natural := font (active).scale; code : in boolean := false);

	procedure draw_separator (x, y, width : in integer);

	procedure draw_icon          (data : in core.sprite; text : in string; x, y        : in integer; action : core.pointer := core.idle_skip'access);
	procedure draw_icon_and_text (data : in core.sprite; text : in string; x, y, width : in integer; action : core.pointer := core.idle_skip'access);
	procedure draw_overicon      (data : in core.sprite; text : in string; x, y        : in integer; action : core.pointer := core.idle_skip'access);

	procedure draw_sprite (data : in core.sprite; text : in string; x, y, offset : in integer; action : core.pointer := core.idle_skip'access);

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

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

	procedure draw_button (text, description : in string; icon : in core.sprite; x, y, width, height : in integer; action : core.pointer := core.idle_skip'access);

	procedure draw_text (text : in string; x, y, width, height : in integer := 0; offset, border : in natural := 0; tint : in core.colour := (others => 255));

	procedure draw_check_box (x, y : in integer; on : in out boolean; text : in string);

	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_tiny_fill_bar (x, y, width  : in integer; fill   : in float; tint : in core.colour);
	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 (x, y, width, height : in integer; text : in string := "--"; action : in core.pointer := core.idle_skip'access);

	procedure draw_end_turn_button (x, y : in integer);

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

	procedure iterate_style;

	--~procedure write_ada_code (text : in core.string_box_data; x, y : in integer);

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

end ui;