renamed button

svn: r9863

collects/drscheme/private/app.ss

@@ -220,7 +220,7 @@
     (send e insert (get-translating-acks))
     
     (let* ([docs-button (new button% 
-                             [label (string-constant the-documentation)]
+                             [label (string-constant help-desk)]
                              [parent button-panel]
                              [callback (λ (x y) (help-desk:help-desk))])])
       (send docs-button focus))

collects/drscheme/private/help-desk.ss

@@ -8,6 +8,7 @@
          framework
          mzlib/class
          mzlib/list
+         net/url
          (lib "search.ss" "help")
          "drsig.ss")
 
@@ -64,7 +65,11 @@
              (send dc draw-text dots (- cw dw) (- (/ ch 2) (/ th 2)))]))))
     (super-new)))
 
-(define (goto-plt-license) (void))
+(define (goto-plt-license) 
+  '(send-url
+    (url->string
+     (path->url (build-path (find-doc-dir) "license" "index.html")))))
+
 (define (get-docs) '())
 
 (define help-desk

collects/string-constants/english-string-constants.ss

@@ -379,7 +379,6 @@ please adhere to these guidelines:
 
  ;;; about box
  (about-drscheme-frame-title "About DrScheme")
- (the-documentation "The Documentation")
  
  ;;; save file in particular format prompting.
  (save-as-plain-text "Save this file as plain text?")