From 135e3ee14d636a8d16d5b37001212e453b3c4989 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 27 Sep 2011 08:33:25 -0500 Subject: [PATCH] add a 'Racket Documentation' menu item to drracket --- collects/drracket/private/frame.rkt | 14 ++++++++------ .../private/english-string-constants.rkt | 1 + 2 files changed, 9 insertions(+), 6 deletions(-) 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")