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

added the computer language info back in

Browse Source 
svn: r15678
This commit is contained in:
Robby Findler 2009-08-05 23:58:05 +00:00
parent 7c62f8caa0
commit 46f5ef44bd
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -332,19 +332,22 @@
(new grow-box-spacer-pane% [parent button-panel])) (new grow-box-spacer-pane% [parent button-panel]))
(define (get-query) (define (get-query)
(list (cons 'help-desk "true") (append (list (cons 'help-desk "true")
(cons 'replyto (preferences:get 'drscheme:email)) (cons 'replyto (preferences:get 'drscheme:email))
(cons 'originator (preferences:get 'drscheme:full-name)) (cons 'originator (preferences:get 'drscheme:full-name))
(cons 'subject (send summary get-value)) (cons 'subject (send summary get-value))
(cons 'severity (send severity get-string-selection)) (cons 'severity (send severity get-string-selection))
(cons 'class (translate-class (send bug-class get-string-selection))) (cons 'class (translate-class (send bug-class get-string-selection)))
(cons 'release (send version get-value)) (cons 'release (send version get-value))
(cons 'description (apply string-append (map (lambda (x) (string-append x "\n")) (cons 'description (apply string-append (map (lambda (x) (string-append x "\n"))
(get-strings description)))) (get-strings description))))
(cons 'how-to-repeat (apply string-append (cons 'how-to-repeat (apply string-append
(map (lambda (x) (string-append x "\n")) (map (lambda (x) (string-append x "\n"))
(get-strings reproduce)))) (get-strings reproduce))))
(cons 'platform (get-environment)))) (cons 'platform (get-environment)))
(map (λ (bri) (cons (string->symbol (format "~a" (bri-label bri)))
(bri-value bri)))
(get-bug-report-infos))))
(define (get-environment) (define (get-environment)
(string-append (send environment get-value) (string-append (send environment get-value)