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.hx
+++ b/projects/nat-archive-tool/src/nat/systems/ImageAttachmentSystem.hx
@@ -0,0 +1,7 @@
+package nat.systems;
+
+import kiss.Prelude;
+import kiss.List;
+
+@:build(kiss.Kiss.build())
+class ImageAttachmentSystem extends AttachmentSystem {}
--- 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))))))