|
|
@@ -175,6 +175,9 @@ package body ui is |
|
|
|
--~draw (cursor, at_x + new_width - 96, at_y); |
|
|
|
--~end if; |
|
|
|
at_y := at_y + core.icon + 2 * offset; |
|
|
|
when gui_orient => |
|
|
|
at_x := at_x + new_width - 2 * core.icon + offset; |
|
|
|
at_y := new_y + core.icon; |
|
|
|
when others => null; |
|
|
|
end case; |
|
|
|
end loop; |
|
|
@@ -467,9 +470,20 @@ package body ui is |
|
|
|
structure_array (structure_count - 1).gui_list (structure_array (structure_count - 1).gui_n).number := 0; |
|
|
|
structure_array (structure_count - 1).gui_list (structure_array (structure_count - 1).gui_n).image := icon; |
|
|
|
-- |
|
|
|
core.echo (core.import, "> button > " & text); |
|
|
|
core.increment (structure_array (structure_count - 1).gui_n); |
|
|
|
end add_structure_button; |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
procedure add_structure_orient is |
|
|
|
begin |
|
|
|
structure_array (structure_count - 1).gui_list (structure_array (structure_count - 1).gui_n).kind := gui_orient; |
|
|
|
-- |
|
|
|
core.echo (core.import, "> orient"); |
|
|
|
core.increment (structure_array (structure_count - 1).gui_n); |
|
|
|
end add_structure_orient; |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
end ui; |