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

NAT Godot make playground tabs and entry panels

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-02-13 06:23:43 -07:00
parent 9c39c0cc13
commit c8d9fa81b4
8 changed files with 126 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
projects/nat-godot-playground/scripts/GodotUI.kiss
View File

@@ -1,18 +1,45 @@
(loadFrom "kiss-godot" "src/kiss_godot/Macros.kiss")
(prop &mut :ArchiveController controller (property default default))
(prop &mut :Null<KeyShortcutHandler<Entry>> shortcutHandler (property default null))
(method :Void showPrefixMap [:Map<String,String> map] (throw "TODO Not implemented!"))
(method :Void hidePrefixMap [] (throw "TODO Not implemented!"))
(method :Null<PlaygroundSystem> playgroundSystem [] (throw "TODO Not implemented!"))
(method :Null<PlaygroundSystem<Dynamic>> playgroundSystem [] pgSystem)
(method :Void enterText [:String prompt :String->Void resolve :Float maxLength] (throw "TODO Not implemented!"))
(method :Void enterNumber [:String prompt :Float->Void resolve :Float min :Float max &opt :Null<Float> inStepsOf &opt :Null<Bool> allowNaN] (throw "TODO Not implemented!"))
(method :Void chooseEntry [:String prompt :Archive archive :Entry->Void resolve] (throw "TODO Not implemented!"))
(method :Void chooseEntries [:String prompt :Archive archive :Array<Entry>->Void resolve :Int min :Float max] (throw "TODO Not implemented!"))
(method :Void handleChanges [:Archive archive :ChangeSet changeSet] (throw "TODO Not implemented!"))
(method :Void displayMessage [:String message] (throw "TODO Not implemented!"))
(method :Void reportError [:String error] (throw "TODO Not implemented!"))
(method :Void onSelectionChanged [:Array<Entry> selectedEntries :Array<Entry> lastSelectedEntries] (throw "TODO Not implemented!"))
(method :Void choosePosition [:String prompt :Position->Void resolve] (throw "TODO Not implemented!"))
(method :Option<Position> cursorPosition [] (throw "TODO Not implemented!"))(method :Void chooseBetweenStrings [:String prompt :Array<String> choices :String->Void resolve] (throw "TODO Not implemented!"))
(method :Option<Position> cursorPosition [] (throw "TODO Not implemented!"))
(method :Void chooseBetweenStrings [:String prompt :Array<String> choices :String->Void resolve] (throw "TODO Not implemented!"))
(defNew [&prop :Archive archive
&prop :Node rootNode])
&prop :Node rootNode]
[
:EntryPanelSystem pgSystem (new EntryPanelSystem this rootNode)
:TabContainer pgTabs (getNode rootNode "PlaygroundTabContainer")
:PackedScene pgScene (GD.load "res://Playground.tscn")
]
(doFor =>key playground archive.playgrounds
(let [pg (pgScene.instance)]
(set pg.name key)
(pgTabs.addChild pg))))