From 4a379e00ba44746567a5ceaa720ea0df3c2a7d14 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Tue, 5 Jul 2022 14:55:09 +0000 Subject: [PATCH] tags on circle entries --- projects/nat-archive-tool/src/nat/ArchiveController.kiss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index 7bb8f051..0f56b4d9 100644 --- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss +++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss @@ -252,9 +252,10 @@ (flatten (for name names (CreateTaggedEntry tags name)))) - (defCommand CreateCircleEntry [radius (Number 0 null null)] + (defCommand CreateCircleEntry [tags (VarText null) radius (Number 0 null null)] [(archive.createEntry ->e - (addComponent archive e Circle (objectWith radius)))]) + {(addTags archive e tags) + (addComponent archive e Circle (objectWith radius))})]) // TODO use Tag and VarTag arg types for AddTags and RemoveTags (defCommand AddTags [entries (SelectedEntries 1 null)