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

make the 'failed to click on the radio box' error message more helpful

Browse Source
This commit is contained in:
Robby Findler 2012-11-11 20:12:50 -06:00
parent 9ad93eaa2d
commit 8c47dbba01
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/test.rkt
View File

@ -424,6 +424,7 @@
;; entry-matches : string | regexp -> radio-box -> boolean ;; entry-matches : string | regexp -> radio-box -> boolean
(define (entry-matches name) (define (entry-matches name)
(procedure-rename
(λ (rb) (λ (rb)
(let loop ([n (send rb get-number)]) (let loop ([n (send rb get-number)])
(cond (cond
@ -438,7 +439,11 @@
[(regexp? name) [(regexp? name)
(or (regexp-match name itm) (or (regexp-match name itm)
(regexp-match name pln-itm))]) (regexp-match name pln-itm))])
(loop (- n 1))))])))) (loop (- n 1))))])))
(string->symbol
(if (regexp? name)
(object-name name)
name))))
;;; CHOICE ;;; CHOICE