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