[nat] printComponent

2021-06-29 14:23:21 -06:00
parent a3b64f6477
commit 3b8dbb9bc4
2 changed files with 8 additions and 1 deletions
--- a/src/nat/ArchiveController.kiss
+++ b/src/nat/ArchiveController.kiss
@@ -148,6 +148,10 @@

    (defcommand printSelectedEntries [entries (SelectedEntries null null)]
        (doFor e entries (ui.displayMessage (archive.fullString e))) [])
+    
+    (defcommand printComponent [entries (SelectedEntries null null)
+                                    componentType (Text null)]
+        (doFor e entries (ui.displayMessage (archive.componentData e componentType))) [])
        
    (defcommand createEntry [name (Text null)]
        [(archive.createEntry ->e