From 92fa4a8d58ce1a88c6b48036626b07dc8a7cb8fd Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
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")