add planet2 info to the bug report system

collects/help/private/bug-report-controls.rkt

@@ -7,6 +7,7 @@
          setup/dirs
          setup/link
          framework
+         (prefix-in planet2: planet2)
          (for-syntax racket/base
                      racket/list)
          "buginfo.rkt"
@@ -247,6 +248,16 @@
      #f
      #:top-panel synthesized-panel))
   
+  (define planet2-info
+    (build/label
+     (string-constant bug-report-field-planet2)
+     (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)
@@ -315,6 +326,7 @@
                    (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))
+                   (format "Planet2 (show):\n~a\n" (send planet2-info get-value))
                    "\n"
                    "\nCollections:\n"
                    (format "~a" (send (send collections get-editor) get-text))
@@ -432,6 +444,13 @@
                      (links #:root? #t)
                      (links #:user? #f #:root? #t)))
   
+  (define planet2-info-sp (open-output-string))
+  (parameterize ([current-output-port planet2-info-sp])
+    (planet2:show))
+  (send (send planet2-info get-editor)
+        insert
+        (get-output-string planet2-info-sp))
+  
   (send human-language set-value (format "~a" (this-language)))
   (send memory-use set-value (format "~a" (current-memory-use)))
   

collects/string-constants/private/english-string-constants.rkt

@@ -1729,6 +1729,8 @@ please adhere to these guidelines:
   (planet-docs-building "PLaneT: Building docs (triggered by ~a)...")
   (planet-no-status "PLaneT") ;; this can happen when there is status shown in a different and then the user switches to a tab where planet hasn't been used
   
+  (bug-report-field-planet2 "Package system info")
+  
   ;; string normalization. To see this, paste some text with a ligature into DrRacket
   ;; the first three strings are in the dialog that appears. The last one is in the preferences dialog
   (normalize "Normalize")