kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

NAT flixel playground multiple playground views

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-02 23:10:47 +00:00
parent bcd1eca9a0
commit d17ebf9a1d
16 changed files with 104 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
projects/nat-archive-tool/src/nat/systems/PlaygroundSystem.kiss
View File

@@ -16,9 +16,10 @@
(addComponent archive e Positions (new Map)))
(withWritableComponents archive e [positions Positions]
(when !(positions.exists _playgroundKey)
// TODO do a playground check before giving a default position.
(dictSet positions _playgroundKey (defaultPosition e))))
(let [pos (dictGet (readComponent e Positions) _playgroundKey)]
(if (catsMatch e .catsMatch (dictGet archive.playgrounds _playgroundKey))
(dictSet positions _playgroundKey (defaultPosition e))
(return null))))
(whenLet [pos (dictGet (readComponent e Positions) _playgroundKey)]
(processor archive e pos ui))
}))
@@ -28,7 +29,7 @@
(set _playgroundKey key)
(process ui.controller.archive ui))
(method clear [])
(method :Void clear [])
(method &override :Void process [:Archive archive &opt :ArchiveUI ui]
(when _playgroundKey (super.process archive ui)))