add links to the bug report form
This commit is contained in:
parent
41e22a6e3f
commit
92fa4a8d58
|
@ -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)))
|
||||||
|
|
||||||
|
|
|
@ -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")
|
||||||
|
|
Loading…
Reference in New Issue
Block a user