circles for NAT

2022-07-05 01:07:58 +00:00
parent bc0f0f16c1
commit 58e14db450
4 changed files with 16 additions and 4 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -249,6 +249,10 @@
        (flatten (for name names
            (CreateMediaEntry medium name))))

+    (defCommand CreateCircleEntry [radius (Number 0 null null)]
+        [(archive.createEntry ->e
+            (addComponent archive e Circle (objectWith radius)))])
+
    // TODO use Tag and VarTag arg types for AddTags and RemoveTags
    (defCommand AddTags [entries (SelectedEntries 1 null)
                            tagsToAdd (VarText null)]