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

add links to the bug report form

Browse Source
This commit is contained in:
Robby Findler 2011-08-24 13:35:57 -05:00
parent 41e22a6e3f
commit 92fa4a8d58
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/help/private/bug-report-controls.rkt
View File

@ -5,6 +5,7 @@
racket/pretty racket/pretty
string-constants/string-constant string-constants/string-constant
setup/dirs setup/dirs
setup/link
framework framework
"buginfo.rkt" "buginfo.rkt"
"save-bug-report.rkt") "save-bug-report.rkt")
@ -234,6 +235,16 @@
#f #f
#:top-panel synthesized-panel)) #:top-panel synthesized-panel))
(define links-ctrl
(build/label
(string-constant bug-report-field-links)
(lambda (panel)
(keymap:call/text-keymap-initializer
(lambda ()
(make-object text-field% #f panel void ""))))
#f
#:top-panel synthesized-panel))
(define collections (define collections
(make-big-text (make-big-text
(string-constant bug-report-field-collections) (string-constant bug-report-field-collections)
@ -301,6 +312,8 @@
"\n" "\n"
(format "Human Language: ~a\n" (send human-language get-value)) (format "Human Language: ~a\n" (send human-language get-value))
(format "(current-memory-use) ~a\n" (send memory-use get-value)) (format "(current-memory-use) ~a\n" (send memory-use get-value))
(format "Links: ~a\n" (send links-ctrl get-value))
"\n"
"\nCollections:\n" "\nCollections:\n"
(format "~a" (send (send collections get-editor) get-text)) (format "~a" (send (send collections get-editor) get-text))
"\n" "\n"
@ -399,6 +412,12 @@
(map path->string (directory-list d)) (map path->string (directory-list d))
'(non-existent-path)))))) '(non-existent-path))))))
(send (send links-ctrl get-editor)
insert
(format "~s = ~s; ~s = ~s"
'(links) (links)
'(links #:user? #f) (links #:user? #f)))
(send human-language set-value (format "~a" (this-language))) (send human-language set-value (format "~a" (this-language)))
(send memory-use set-value (format "~a" (current-memory-use))) (send memory-use set-value (format "~a" (current-memory-use)))

1
collects/string-constants/private/english-string-constants.rkt
View File

@ -155,6 +155,7 @@ please adhere to these guidelines:
(bug-report-field-environment "Environment") (bug-report-field-environment "Environment")
(bug-report-field-docs-installed "Docs Installed") (bug-report-field-docs-installed "Docs Installed")
(bug-report-field-collections "Collections") (bug-report-field-collections "Collections")
(bug-report-field-links "Links") ;; from 'raco link'
(bug-report-field-human-language "Human Language") (bug-report-field-human-language "Human Language")
(bug-report-field-memory-use "Memory Use") (bug-report-field-memory-use "Memory Use")
(bug-report-field-version "Version") (bug-report-field-version "Version")