xhads/source/attribute.adb

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

with core, ui;

package body attribute is

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

	procedure draw_points (data : in points; x, y : in integer) is
		move_x : integer := x;
	begin
		for index in enumeration loop
			ui.draw_icon     (icon (index), -(description (index).text), move_x, y);
			ui.draw_text_box (move_x, y + core.icon, core.icon, core.icon);
			ui.write         (data (index).value'image, move_x + 4, y + core.icon + 8, (255, 255, 255, 255), 15, true);
			--
			move_x := move_x + core.icon;
		end loop;
	end draw_points;

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

end attribute;