diff --git a/collects/drscheme/private/app.ss b/collects/drscheme/private/app.ss index c017afe2e4..686b6a75ef 100644 --- a/collects/drscheme/private/app.ss +++ b/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)) diff --git a/collects/drscheme/private/help-desk.ss b/collects/drscheme/private/help-desk.ss index 3b057f4e6f..4cb4832220 100644 --- a/collects/drscheme/private/help-desk.ss +++ b/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 diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index 80779fc2cc..6e329987f5 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/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?")