43 lines
2.0 KiB
Ada
43 lines
2.0 KiB
Ada
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;
|