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

Better treatment of focus

Browse Source 
Use tab to switch between fields, the response field is read-only

svn: r1677
This commit is contained in:
Eli Barzilay 2005-12-24 00:01:32 +00:00
parent cb02748399
commit ac143d52cf
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/help/bug-report.ss
View File

@ -86,14 +86,20 @@
(define top-panel (make-object vertical-panel% outermost-panel)) (define top-panel (make-object vertical-panel% outermost-panel))
(define (switch-to-response-view) (define (switch-to-response-view)
(send response-text lock #f)
(send response-text erase) (send response-text erase)
(render-html-to-text ; hack to get nice text in (render-html-to-text ; hack to get nice text in
(open-input-string (open-input-string
"&nbsp;<br><br><br><br><br><div align=\"center\"><h2><b>Submitting bug report...</b></h2></div>") "&nbsp;<br><br><br><br><br><div align=\"center\"><h2><b>Submitting bug report...</b></h2></div>")
response-text #t #f) response-text #t #f)
(send response-text lock #t)
(send single active-child response-panel)) (send single active-child response-panel))
(define (switch-to-compose-view) (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) (define lps null)
@ -376,15 +382,18 @@
[(x) (post-pure-port x post-data)] [(x) (post-pure-port x post-data)]
[(x y) (post-pure-port x post-data y)]) [(x y) (post-pure-port x post-data y)])
(lambda (port) (lambda (port)
(send response-text lock #f)
(send response-text erase) (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 (queue-callback
(lambda () (lambda ()
(send response-abort enable #f) (send response-abort enable #f)
(send response-reset enable #t) (send response-reset enable #t)
(send response-close enable #t) (send response-close enable #t)
(set! cancel-kill-thread #f) (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) (set! cancel-kill-thread http-thread)
(send response-abort enable #t) (send response-abort enable #t)
(switch-to-response-view))) (switch-to-response-view)))
@ -439,7 +448,7 @@
(define (cleanup-frame) (define (cleanup-frame)
(send bug-frame close)) (send bug-frame close))
(send response-ec enable #f) (send response-ec allow-tab-exit #t)
(send severity set-selection 1) (send severity set-selection 1)
(send version set-value (send version set-value
@ -472,10 +481,7 @@
(align-labels) (align-labels)
(send button-panel set-alignment 'right 'center) (send button-panel set-alignment 'right 'center)
(send button-panel stretchable-height #f) (send button-panel stretchable-height #f)
(send (if (string=? "" (preferences:get 'drscheme:full-name)) (switch-to-compose-view)
name
summary)
focus)
(send (send docs-installed get-editor) insert (send (send docs-installed get-editor) insert
(format "~s" (find-doc-directories))) (format "~s" (find-doc-directories)))