kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

tags on circle entries

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-05 14:55:09 +00:00
parent d9b3723c6b
commit 4a379e00ba
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
projects/nat-archive-tool/src/nat/ArchiveController.kiss
View File

@@ -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)