From 51ea0fd3f2824ce5494c3f383df5cf0637dc5841 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Sun, 3 Jul 2022 03:01:38 +0000 Subject: [PATCH] Rename command for entries --- projects/nat-archive-tool/src/nat/ArchiveController.kiss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index c3e23f45..776523e7 100644 --- 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))) [])