55 lines
2.3 KiB
Plaintext
55 lines
2.3 KiB
Plaintext
(loadFrom "kiss-godot" "src/kiss_godot/Util.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<Dynamic>> playgroundSystem [] pgSystem)
|
|
|
|
(method :Void enterText [:String prompt :String->Void resolve :Float maxLength]
|
|
(displayMessage prompt)
|
|
(let [lineEdit (new LineEdit)]
|
|
(unless (= maxLength Math.POSITIVE_INFINITY)
|
|
(set lineEdit.maxLength (Std.int maxLength)))
|
|
(set rootNode.resolveString resolve)
|
|
(lineEdit.connect "text_entered" rootNode "_on_LineEdit_text_entered")
|
|
(rootNode.uiContainer.addChild lineEdit)))
|
|
|
|
(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]
|
|
null)
|
|
|
|
(method :Void displayMessage [:String message]
|
|
(let [label (new Label)]
|
|
(set label.text message)
|
|
(rootNode.uiContainer.addChild label)))
|
|
|
|
(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 []
|
|
(let [pos (.getMousePosition (rootNode.getViewport))]
|
|
(Some (vector2ToPosition pos))))
|
|
|
|
(function :Position vector2ToPosition [:Vector2 pos]
|
|
(object x pos.x y pos.y z 0.0))
|
|
|
|
(method :Void chooseBetweenStrings [:String prompt :Array<String> choices :String->Void resolve] (throw "TODO Not implemented!"))
|
|
|
|
(defNew [&prop :Archive archive
|
|
&prop :RootNode rootNode]
|
|
[
|
|
:EntryPanelSystem pgSystem (new EntryPanelSystem this rootNode)
|
|
]) |