better (but still broken) removal from playgrounds

2022-07-05 14:55:49 +00:00
parent 4a379e00ba
commit 81ae02a58d
4 changed files with 17 additions and 14 deletions
--- a/projects/nat-archive-tool/src/nat/systems/PlaygroundSystem.kiss
+++ b/projects/nat-archive-tool/src/nat/systems/PlaygroundSystem.kiss
@@ -5,7 +5,8 @@

 (defNew [&prop :ArchiveUI ui
            :EntryChecker canProcess
-            &prop :PlaygroundEntryProcessor processor]
+            &prop :PlaygroundEntryProcessor processor
+            :EntryProcessor onRemoveEntry]

    (super
        ->[archive e]
@@ -21,7 +22,8 @@
                            (return null))))
                (whenLet [pos (dictGet (readComponent e Positions) _playgroundKey)]
                    (processor archive e pos ui))
-            }))
+            })
+    (set this.onRemoveEntry onRemoveEntry))

 (method switchPlaygroundKey [key]
    (when _playgroundKey