From ac143d52cf2e876dfb31f35aa8fd6c3f45a8e88f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 24 Dec 2005 00:01:32 +0000 Subject: [PATCH] Better treatment of focus Use tab to switch between fields, the response field is read-only svn: r1677 --- collects/help/bug-report.ss | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/collects/help/bug-report.ss b/collects/help/bug-report.ss index 7f4c14ac07..86aa9fbe60 100644 --- a/collects/help/bug-report.ss +++ b/collects/help/bug-report.ss @@ -86,14 +86,20 @@ (define top-panel (make-object vertical-panel% outermost-panel)) (define (switch-to-response-view) + (send response-text lock #f) (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 response-text lock #t) (send single active-child response-panel)) (define (switch-to-compose-view) - (send single active-child outermost-panel)) + (send single active-child outermost-panel) + (send (if (string=? "" (preferences:get 'drscheme:full-name)) + name + summary) + focus)) (define lps null) @@ -376,15 +382,18 @@ [(x) (post-pure-port x post-data)] [(x y) (post-pure-port x post-data y)]) (lambda (port) + (send response-text lock #f) (send response-text erase) - (render-html-to-text port response-text #t #f)))) + (render-html-to-text port response-text #t #f) + (send response-text lock #t)))) (queue-callback (lambda () (send response-abort enable #f) (send response-reset enable #t) (send response-close enable #t) (set! cancel-kill-thread #f) - (send bug-frame set-ok-to-close #t)))))))]) + (send bug-frame set-ok-to-close #t) + (send response-close focus)))))))]) (set! cancel-kill-thread http-thread) (send response-abort enable #t) (switch-to-response-view))) @@ -439,7 +448,7 @@ (define (cleanup-frame) (send bug-frame close)) - (send response-ec enable #f) + (send response-ec allow-tab-exit #t) (send severity set-selection 1) (send version set-value @@ -472,10 +481,7 @@ (align-labels) (send button-panel set-alignment 'right 'center) (send button-panel stretchable-height #f) - (send (if (string=? "" (preferences:get 'drscheme:full-name)) - name - summary) - focus) + (switch-to-compose-view) (send (send docs-installed get-editor) insert (format "~s" (find-doc-directories)))