specify whether flixel projects need to pass html5/c++ compilation
This commit is contained in:
@@ -0,0 +1,19 @@
|
||||
(loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
|
||||
|
||||
(defNew [:String positionKey
|
||||
&prop :Archive archive
|
||||
&prop :Entry e]
|
||||
(let [images (readComponent archive e Images)]
|
||||
(case (dictGet (readComponent archive e Positions) positionKey)
|
||||
((object x x y y z z)
|
||||
(super x y)))
|
||||
(.onComplete (BitmapData.loadFromFile (joinPath archive.archiveDir "files" (nth images.imageFiles images.pinnedImageIndex)))
|
||||
->bitmapData {
|
||||
(loadGraphic bitmapData)
|
||||
(enableMouseClicks false)
|
||||
(enableMouseDrag)
|
||||
}))
|
||||
(set mouseStopDragCallback
|
||||
->[self _dx _dy]
|
||||
(withWritableComponents archive e [positions Positions]
|
||||
(dictSet positions positionKey (object x (cast this.x Float) y (cast this.y Float) z 0.0)))))
|
||||
Reference in New Issue
Block a user