diff --git a/collects/drracket/private/frame.rkt b/collects/drracket/private/frame.rkt index 590e225b4d..847ba94d38 100644 --- a/collects/drracket/private/frame.rkt +++ b/collects/drracket/private/frame.rkt @@ -653,9 +653,11 @@ (make-help-desk-menu-item help-menu))) (define (make-help-desk-menu-item help-menu) - (make-object menu-item% - (string-constant help-desk) - help-menu - (λ (item evt) - (help:help-desk) - #t))) + (define (docs-menu-item label) + (new menu-item% + [label label] + [parent help-menu] + [callback (λ (item evt) (help:help-desk) #t)])) + (docs-menu-item (string-constant racket-documentation)) + (new separator-menu-item% [parent help-menu]) + (docs-menu-item (string-constant help-desk))) diff --git a/collects/string-constants/private/english-string-constants.rkt b/collects/string-constants/private/english-string-constants.rkt index acbc65b792..7fe337add1 100644 --- a/collects/string-constants/private/english-string-constants.rkt +++ b/collects/string-constants/private/english-string-constants.rkt @@ -328,6 +328,7 @@ please adhere to these guidelines: ;; Help Desk (help "Help") + (racket-documentation "Racket Documentation") (help-desk "Help Desk") (plt:hd:search "Search") (plt:hd:feeling-lucky "Feeling Lucky")