Rename command for entries

2022-07-03 03:01:38 +00:00
parent 9f1126b16f
commit 51ea0fd3f2
1 changed files with 4 additions and 0 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -211,6 +211,10 @@

    (load "SelectionCommands.kiss")

+    (defCommand Rename [e SelectedEntry newName (Text null)]
+        (withWritableComponents archive e [name Name]
+            (set name newName)))
+
    (defCommand PrintSelectedEntries [entries (SelectedEntries null null)]
        (doFor e entries (ui.displayMessage (archive.fullString e))) [])