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

added more debugging information to try to figure out if the 'window with no button' error is a bug or not

Browse Source 
svn: r17898
This commit is contained in:
Robby Findler 2010-01-30 20:53:03 +00:00
parent 30c5d37b81
commit 32faba2964
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/drscheme/randomly-click.ss
View File

@ -109,16 +109,16 @@
[action [action
(with-handlers ((exn:fail? (λ (x) (with-handlers ((exn:fail? (λ (x)
(fprintf (current-error-port) (fprintf (current-error-port)
"\nExecution fail: Bug? transcript of ~a clicking follows\n" "\nExecution fail: transcript of ~a clicking follows\n"
(send window get-label)) (send window get-label))
(apply show-log (cons action actions)) (apply show-log (cons action actions))
(raise x)))) (raise x))))
(action)) (action))
(loop (- n 1) (cons action actions))] (loop (- n 1) (cons action actions))]
[else [else
(fprintf (current-error-port) "\nExists/Meets window with no button: Bug? -> Reopen Dialog") (fprintf (current-error-port) "\nExists/Meets window with no button: Bug?\n")
(open-dialog) (apply show-log (cons action actions))
(loop n actions)]))]))])))))) (error 'randomly-click.ss "giving up")]))]))]))))))
(define (show-log . actions) (define (show-log . actions)
(for ((action (in-list actions))) (for ((action (in-list actions)))