|
|
@@ -168,7 +168,7 @@ package body ui is |
|
|
|
for x in 0 .. data.gui_n - 1 loop |
|
|
|
case data.gui_list (x).kind is |
|
|
|
when gui_button => |
|
|
|
draw_frame (data.gui_list (x).info, at_x, at_y, new_width - 2 * offset - core.icon - 2, 3 * core.icon / 2); |
|
|
|
draw_frame (data.gui_list (x).info, at_x, at_y, new_width - 2 * offset, 3 * core.icon / 2); |
|
|
|
draw_icon (data.gui_list (x).image, data.gui_list (x).info, at_x + core.icon / 4, at_y + core.icon / 4); |
|
|
|
write (data.gui_list (x).text, at_x + 5 * core.icon / 4, at_y + 2 + core.icon / 4); |
|
|
|
if cursor_inside (at_x, at_y, new_width - 2 * offset - core.icon - 2, 3 * core.icon / 2) then |
|
|
|