fix return value of playground commands

This commit is contained in:
2022-09-08 20:39:46 +00:00
parent d125081251
commit 2a3e4ed568

View File

@@ -336,11 +336,13 @@
(defCommand CreatePlayground [name (Text null) catsMatchExp (Text null)]
(archive.changePlaygrounds ->:Void [:DynamicAccess<Dynamic> p]
(dictSet p name (object catsMatch catsMatchExp))))
(dictSet p name (object catsMatch catsMatchExp)))
[])
(defCommand SwitchPlayground [name (Text null)]
(archive.changePlaygrounds ->:Void [:DynamicAccess<Dynamic> p] (dictSet p "default" name))
(when playgroundSystem (playgroundSystem.switchPlaygroundKey name)))
(when playgroundSystem (playgroundSystem.switchPlaygroundKey name))
[])
(defCommand AddConnections [entries (SelectedEntries 1 null) entriesToConnect (Entries 1 null)]
(for e entries