Anonymous user
User input/Graphical: Difference between revisions
→{{header|Racket}}
(Add NetRexx implementation) |
|||
Line 963:
gmessage("You failed this simple task", parent=w)
})
</lang>
=={{header|Racket}}==
<lang Racket>
#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")))
</lang>
|