|
|
|
|
@ -11,6 +11,11 @@
|
|
|
|
|
(define current-omit (make-parameter #f))
|
|
|
|
|
(define current-mandatory (make-parameter #f))
|
|
|
|
|
(define current-combo (make-parameter #f))
|
|
|
|
|
(define refresh-thread (thread void))
|
|
|
|
|
(define (buffered-refresh)
|
|
|
|
|
(set! refresh-thread (let ()
|
|
|
|
|
(kill-thread refresh-thread)
|
|
|
|
|
(thread (λ () (sleep 0.2) (refresh-wordbox))))))
|
|
|
|
|
(for ([param (list current-optional current-omit current-mandatory current-combo)]
|
|
|
|
|
[str '("optional letters" "omitted letters" "mandatory letters" "mandatory combo")])
|
|
|
|
|
(new text-field%
|
|
|
|
|
@ -22,7 +27,9 @@
|
|
|
|
|
(param (match (send tf get-value)
|
|
|
|
|
[(? non-empty-string? str) str]
|
|
|
|
|
[_ #false]))
|
|
|
|
|
(refresh-wordbox))]))
|
|
|
|
|
;; put delay on refresh so that rapid typing
|
|
|
|
|
;; doesn't trigger too many refreshes
|
|
|
|
|
(buffered-refresh))]))
|
|
|
|
|
|
|
|
|
|
(define current-min-size (make-parameter 3))
|
|
|
|
|
(define current-max-size (make-parameter 20))
|
|
|
|
|
|
