From 32faba29647993487111de25a3ff489af7f058ca Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 30 Jan 2010 20:53:03 +0000 Subject: [PATCH] added more debugging information to try to figure out if the 'window with no button' error is a bug or not svn: r17898 --- collects/tests/drscheme/randomly-click.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/drscheme/randomly-click.ss b/collects/tests/drscheme/randomly-click.ss index 720a5f7774..1bd14fc27e 100644 --- a/collects/tests/drscheme/randomly-click.ss +++ b/collects/tests/drscheme/randomly-click.ss @@ -109,16 +109,16 @@ [action (with-handlers ((exn:fail? (λ (x) (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)) (apply show-log (cons action actions)) (raise x)))) (action)) (loop (- n 1) (cons action actions))] [else - (fprintf (current-error-port) "\nExists/Meets window with no button: Bug? -> Reopen Dialog") - (open-dialog) - (loop n actions)]))]))])))))) + (fprintf (current-error-port) "\nExists/Meets window with no button: Bug?\n") + (apply show-log (cons action actions)) + (error 'randomly-click.ss "giving up")]))]))])))))) (define (show-log . actions) (for ((action (in-list actions)))