From c2c0700801e6944e4565537440b778c92c90e2e2 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 19 Dec 2005 11:00:52 +0000 Subject: [PATCH] make the response show a message while we wait for the server svn: r1644 --- collects/help/bug-report.ss | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/collects/help/bug-report.ss b/collects/help/bug-report.ss index b0dc36cb19..6d13cf5a1d 100644 --- a/collects/help/bug-report.ss +++ b/collects/help/bug-report.ss @@ -84,12 +84,17 @@ (new grow-box-spacer-pane% (parent response-button-panel))) (define top-panel (make-object vertical-panel% outermost-panel)) - - (define (switch-to-respose-view) (send single active-child response-panel)) - (define (switch-to-compose-view) + + (define (switch-to-response-view) (send response-text erase) + (render-html-to-text ; hack to get nice text in + (open-input-string + " 




Submitting bug report...

") + response-text #t #f) + (send single active-child response-panel)) + (define (switch-to-compose-view) (send single active-child outermost-panel)) - + (define lps null) ; build/label : ((union string (list-of string)) @@ -370,7 +375,9 @@ (case-lambda [(x) (post-pure-port x post-data)] [(x y) (post-pure-port x post-data y)]) - (lambda (port) (render-html-to-text port response-text #t #f)))) + (lambda (port) + (send response-text erase) + (render-html-to-text port response-text #t #f)))) (queue-callback (lambda () (send response-abort enable #f) @@ -380,7 +387,7 @@ (send bug-frame set-ok-to-close #t)))))))]) (set! cancel-kill-thread http-thread) (send response-abort enable #t) - (switch-to-respose-view))) + (switch-to-response-view))) (define (get-strings canvas) (let ([t (send canvas get-editor)])