name system tracks a map of entry names

2021-09-05 16:00:54 -06:00
parent 96f7da5c15
commit 795f813cfc
5 changed files with 41 additions and 7 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -139,13 +139,18 @@

 (var :Array<String> commandNames [])

+
 (defNew [&prop :Archive archive
            &prop :ArchiveUI ui]
    [&mut :Array<Entry> selectedEntries []
        &mut :ChangeSet lastChangeSet []
-        :Map<String,Command> commands (new Map)]
+        :Map<String,Command> commands (new Map)
+        :NameSystem nameSystem (new NameSystem)]
+
+    (ui.setController this)

    // Add systems!
+    (archive.addSystem nameSystem)
    (archive.addSystem (new WikipediaImageSystem))
    (archive.processSystems)