Sync

Task/User-input-Graphical/Racket/user-input-graphical.rkt

@@ -0,0 +1,9 @@
+#lang racket
+(require racket/gui)
+
+(define str (get-text-from-user "Hi" "Enter a string"))
+(message-box "Hi" (format "You entered: ~a" str))
+
+(define n (get-text-from-user "Hi" "Enter a number"))
+(message-box "Hi" (format "You entered: ~a"
+                          (or (string->number n) "bogus text")))

Task/User-input-Graphical/Scala/user-input-graphical.scala

@@ -0,0 +1,12 @@
+import swing.Dialog.{Message, showInput}
+import scala.swing.Swing
+
+object UserInput extends App {
+  val s = showInput(null,
+    "Complete the sentence:\n\"Green eggs and...\"",
+    "Customized Dialog",
+    Message.Plain,
+    Swing.EmptyIcon,
+    Nil, "ham")
+  println(s)
+}