generalize EntrySpriteSystem into PlaygroundSystem which all ui will provide

2022-07-02 19:51:30 +00:00
parent f62b42f06b
commit bcd1eca9a0
13 changed files with 97 additions and 29 deletions
--- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss
+++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss
@@ -162,6 +162,10 @@
    (archive.addSystem (new ImageAttachmentSystem))
    (archive.addSystem (new KeyShortcutSystem this))
    (archive.addSystem (new DLSystem))
+    (whenLet [ps (ui.playgroundSystem)]
+        (archive.addSystem ps)
+        // TODO allow saving a different default playground
+        (ps.switchPlaygroundKey "Playground-MAIN"))

    // Just for testing:
    // (archive.addSystem (new AttachmentSystem ["jpg" "jpeg" "png"] ->[archive e files] ~files))