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

added current memory use to the bug report form

Browse Source 
svn: r3467
This commit is contained in:
Robby Findler 2006-06-24 15:07:47 +00:00
parent 0b53714723
commit 7b38f80b48
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -283,6 +283,17 @@
#f #f
synthesized-panel)) synthesized-panel))
(define memory-use
(build/label
(string-constant bug-report-field-memory-use)
(lambda (panel)
(keymap:call/text-keymap-initializer
(lambda ()
(make-object text-field% #f panel void ""))))
#f
#f
synthesized-panel))
(define docs-installed (define docs-installed
(make-big-text (make-big-text
(string-constant bug-report-field-docs-installed) (string-constant bug-report-field-docs-installed)
@ -346,10 +357,11 @@
"Docs Installed:\n" "Docs Installed:\n"
(format "~a" (send (send docs-installed get-editor) get-text)) (format "~a" (send (send docs-installed get-editor) get-text))
"\n" "\n"
"Collections:\n" (format "Human Language: ~a\n" (send human-language get-value))
(format "(current-memory-use) ~a\n" (send memory-use get-value))
"\nCollections:\n"
(format "~a" (send (send collections get-editor) get-text)) (format "~a" (send (send collections get-editor) get-text))
"\n" "\n"
(format "Human Language: ~a\n" (send human-language get-value))
(apply (apply
string-append string-append
(map (lambda (extra) (map (lambda (extra)
@ -503,6 +515,7 @@
(format "~s" (directories-contents (get-collects-search-dirs)))) (format "~s" (directories-contents (get-collects-search-dirs))))
(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 (send collections get-editor) auto-wrap #t) (send (send collections get-editor) auto-wrap #t)
(send (send docs-installed get-editor) auto-wrap #t) (send (send docs-installed get-editor) auto-wrap #t)

1
collects/string-constants/english-string-constants.ss
View File

@ -155,6 +155,7 @@ please adhere to these guidelines:
(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-human-language "Human Language") (bug-report-field-human-language "Human Language")
(bug-report-field-memory-use "Memory Use")
(bug-report-field-version "Version") (bug-report-field-version "Version")
(bug-report-synthesized-information "Synthesized Information") ;; dialog title (bug-report-synthesized-information "Synthesized Information") ;; dialog title
(bug-report-show-synthesized-info "Show Synthesized Info") (bug-report-show-synthesized-info "Show Synthesized Info")