Close #128: ArchiveUI defines cursorPosition() which is used to place entries

2022-09-28 23:05:12 +00:00
parent 36e888723f
commit 9ab0c3d671
7 changed files with 28 additions and 7 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -241,12 +241,7 @@
                (ui.displayMessage "Entry ${e.id} has no $componentType component"))) [])
        
    (defCommand CreateEntry [name (Text null)]
-        [(archive.createEntry ->e
-            {
-                (when (and playgroundSystem (playgroundSystem.currentDefaultTags))
-                    (addTags archive e (playgroundSystem.currentDefaultTags)))
-                (addComponent archive e Name name)
-            })])
+        [(archive.createEntry ->e (addComponent archive e Name name))])
    
    (defCommand CreateEntries [names (VarText null)]
        // createEntry returns a list, so these lists must be flattened