76 lines
2.9 KiB
Ada
76 lines
2.9 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 (
|
|
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;
|