suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add the #:validate argument to get-text-from-user

Browse Source
This commit is contained in:
Robby Findler 2012-03-30 15:46:48 -05:00
parent a37cfa4e08
commit 92e8740105
2 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/mred/private/moredialogs.rkt
View File

@ -189,7 +189,8 @@
[parent #f]
[init-val ""]
[style null]
#:dialog-mixin [dialog-mixin values])
#:dialog-mixin [dialog-mixin values]
#:validate [validate (λ (x) #t)])
(check-label-string 'get-text-from-user title)
(check-label-string/false 'get-text-from-user message)
(check-top-level-parent/false 'get-text-from-user parent)
@ -197,16 +198,29 @@
(check-style 'get-text-from-user #f '(password) style)
(define f (make-object (dialog-mixin dialog%) title parent box-width))
(define ok? #f)
(define ((done ?) b e) (set! ok? ?) (send f show #f))
(define t (make-object text-field% message f (lambda (t e) (when (eq? (send e get-event-type) 'text-field-enter)
((done #t) #f #f)))
init-val (list* 'single 'vertical-label style)))
(define (done ?) (set! ok? ?) (send f show #f))
(define t (new text-field%
[label message]
[parent f]
[callback (λ (t e)
(cond
[(eq? (send e get-event-type) 'text-field-enter)
(done #t)]
[else (do-validation)]))]
[init-value init-val]
[style (list* 'single 'vertical-label style)]))
(define default-background (send t get-field-background))
(define (do-validation)
(send t set-field-background
(if (validate (send t get-value))
default-background
(send wx:the-color-database find-color "pink"))))
(define p (make-object horizontal-pane% f))
(send p set-alignment 'right 'center)
(send f stretchable-height #f)
(ok-cancel
(lambda () (make-object button% "OK" p (done #t) '(border)))
(lambda () (make-object button% "Cancel" p (done #f))))
(lambda () (make-object button% "OK" p (λ (b e) (done #t)) '(border)))
(lambda () (make-object button% "Cancel" p (λ (b e) (done #f)))))
(send (send t get-editor) select-all)
(send t focus)
(send f center)

7
collects/scribblings/gui/dialog-funcs.scrbl
View File

@ -391,11 +391,12 @@ Like @racket[message-box/custom], except that
[parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) #f]
[init-val string? ""]
[style (listof 'password) null]
[#:validate validate (-> string? boolean?)]
[#:dialog-mixin dialog-mixin (make-mixin-contract dialog%) values])
(or/c string? #f)]{
Gets a text string from the user via a modal dialog, using
@racket[parent] as the parent window if it is specified. The dialog's
@racket[parent] as the parent window, if it is specified. The dialog's
title is @racket[title]. The dialog's text field is labelled with
@racket[message] and initialized to @racket[init-val] (but @racket[init-val]
does not determine the size of the dialog).
@ -407,6 +408,10 @@ If @racket[style] includes @racket['password], the dialog's text field
draws each character of its content using a generic symbol, instead
of the actual character.
The @racket[validate] function is called each time the text field changed,
with the contents of the text field. If it returns @racket[#t], the background
of the text is colored pink.
The @racket[dialog-mixin] argument is applied to the class that implements the dialog
before the dialog is created.
}