12 lines
380 B
Plaintext
12 lines
380 B
Plaintext
(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)))))) |