SimpleWindow.promptForString

src/kiss_flixel/SimpleWindow.kiss

@@ -327,6 +327,30 @@
         (window.show)
         window))
 
+(function :SimpleWindow promptForString [:String prompt
+                                            :String->Void onChoice
+                                            &opt :FlxColor bgColor
+                                            :FlxColor titleColor
+                                            :FlxColor submitColor
+                                            :Float percentWidth
+                                            :Float percentHeight
+                                            :Bool xButton
+                                            :String xKey
+                                            :String leftKey
+                                            :String rightKey
+                                            :ShortcutAction onClose]
+    (let [window (new SimpleWindow prompt bgColor titleColor percentWidth percentHeight xButton xKey leftKey rightKey onClose)
+            buttonColor (or submitColor FlxColor.WHITE)
+            inputText (new KissInputText 0 0 FlxG.width "" textSize true)]
+        (window.addControl inputText)
+        (window.makeText "{enter} Submit" buttonColor
+            ->:Void s {
+                (window.hide)
+                (onChoice inputText.text)
+            })
+        (window.show)
+        window))
+
 (method scrollLeft []
     (when (> cameraColumn 0)
         (-= cameraColumn 1)