remove unnecessary withWritableEntry

2021-09-29 17:24:47 -06:00
parent db896a6e9f
commit d367e04a35
2 changed files with 6 additions and 5 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -114,6 +114,8 @@
        (lastCollector)))


+// TODO SelectedEntry and SelectedEntries functions should be stateful and use the actual
+// selected entries automatically
 (defMacro defCommand [name args &body body]
    (let [argPairs
                (groups (expList args) 2)
--- a/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss
+++ b/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss
@@ -5,8 +5,7 @@
        ["jpg" "jpeg" "png"]
        ->[archive e imageFiles]
            (unless (hasComponent e Images)
-                (withWritableEntry archive e
                (addComponent archive e Images
                    (object
                        imageFiles imageFiles
-                            pinnedImageIndex 0))))))
+                        pinnedImageIndex 0)))))