Image attachment tracking system, adjustable pins

2021-09-17 23:13:28 -06:00
parent 61885f4bba
commit 25d1031c88
4 changed files with 41 additions and 1 deletions
--- a/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss
+++ b/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.kiss
@@ -0,0 +1,12 @@
+(load "../Lib.kiss")
+
+(defNew []
+    (super
+        ["jpg" "jpeg" "png"]
+        ->[archive e imageFiles]
+            (unless (hasComponent e Images)
+                (withWritableEntry archive e
+                    (addComponent archive e Images
+                        (object
+                            imageFiles imageFiles
+                            pinnedImageIndex 0))))))