with core;

package ui is

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

	type style is (
		default,                gothic,                 yd,                     steam
	);

	type codex is (
		none,
		main_background,
		corner_upper_left,                  corner_upper_right,                 corner_lower_left,                  corner_lower_right,
		tiny_corner_upper_left,             tiny_corner_upper_right,            tiny_corner_lower_left,             tiny_corner_lower_right,
		border_upper,                       border_lower,                       border_left,                        border_right,
		tiny_border_upper,                  tiny_border_lower,                  tiny_border_left,                   tiny_border_right,
		frame_upper_left,                   frame_upper,                        frame_upper_right,
		frame_left,                         frame_middle,                       frame_right,
		frame_lower_left,                   frame_lower,                        frame_lower_right
	);

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

	active : style;

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

	procedure configure;

	procedure draw (index : in codex; x, y : in integer);

	procedure draw_background (index : in codex; x, y, width, height : in integer);

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

	procedure draw_menu      (x, y, width, height : in integer; background : in boolean);
	procedure draw_tiny_menu (x, y, width, height : in integer; background : in boolean);

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

end ui;