xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Refactored menu creation...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-02-19 16:33:45 -05:00
parent 2172a630b1
commit c67091299f
2 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/menu.adb
View File

@ -8,17 +8,9 @@ package body menu is
procedure configure is procedure configure is
begin begin
trait (attribute_information).title := "Attribute Information "; trait (attribute_information) := ("Attribute Information ", attribute.count, 10, new element_array (0 .. attribute.count - 1));
trait (skill_information).title := "Skill Information "; trait (skill_information) := ("Skill Information ", skill.count, 10, new element_array (0 .. skill.count - 1));
trait (resource_information).title := "Resource Information "; trait (resource_information) := ("Resource Information ", resource.count, 10, new element_array (0 .. resource.count - 1));
--
trait (attribute_information).elements := new element_array (0 .. attribute.count - 1);
trait (skill_information).elements := new element_array (0 .. skill.count - 1);
trait (resource_information).elements := new element_array (0 .. resource.count - 1);
--
trait (attribute_information).length := attribute.count;
trait (skill_information).length := skill.count;
trait (resource_information).length := resource.count;
-- --
for index in attribute.codex for index in attribute.codex
loop loop

1
source/menu.ads
View File

@ -28,6 +28,7 @@ package menu is
record record
title : core.short_string; title : core.short_string;
length : integer; length : integer;
height : integer;
elements : access element_array; elements : access element_array;
end record; end record;