From 92fa4a8d58ce1a88c6b48036626b07dc8a7cb8fd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Aug 2011 13:35:57 -0500 Subject: [PATCH] add links to the bug report form --- collects/help/private/bug-report-controls.rkt | 19 +++++++++++++++++++ .../private/english-string-constants.rkt | 1 + 2 files changed, 20 insertions(+) diff --git a/collects/help/private/bug-report-controls.rkt b/collects/help/private/bug-report-controls.rkt index 7e222cce13..11b4bc27fe 100644 --- a/collects/help/private/bug-report-controls.rkt +++ b/collects/help/private/bug-report-controls.rkt @@ -5,6 +5,7 @@ racket/pretty string-constants/string-constant setup/dirs + setup/link framework "buginfo.rkt" "save-bug-report.rkt") @@ -234,6 +235,16 @@ #f #: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 (make-big-text (string-constant bug-report-field-collections) @@ -301,6 +312,8 @@ "\n" (format "Human Language: ~a\n" (send human-language 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" (format "~a" (send (send collections get-editor) get-text)) "\n" @@ -399,6 +412,12 @@ (map path->string (directory-list d)) '(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 memory-use set-value (format "~a" (current-memory-use))) diff --git a/collects/string-constants/private/english-string-constants.rkt b/collects/string-constants/private/english-string-constants.rkt index 061dcb51bf..bb287fff8e 100644 --- a/collects/string-constants/private/english-string-constants.rkt +++ b/collects/string-constants/private/english-string-constants.rkt @@ -155,6 +155,7 @@ please adhere to these guidelines: (bug-report-field-environment "Environment") (bug-report-field-docs-installed "Docs Installed") (bug-report-field-collections "Collections") + (bug-report-field-links "Links") ;; from 'raco link' (bug-report-field-human-language "Human Language") (bug-report-field-memory-use "Memory Use") (bug-report-field-version "Version")