xhads/source/ui.ads

45 lines
1.6 KiB
Ada

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)
with core;
package ui is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type style is (
default, steam
);
------------------------------------------------------------------------------------------
active : style;
------------------------------------------------------------------------------------------
procedure configure;
procedure draw_icon (data : in core.sprite; description : in string; x, y : in integer);
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;