suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a 'Racket Documentation' menu item to drracket

Browse Source
This commit is contained in:
Robby Findler 2011-09-27 08:33:25 -05:00
parent fd9a3e3926
commit 135e3ee14d
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/drracket/private/frame.rkt
View File

@ -653,9 +653,11 @@
(make-help-desk-menu-item help-menu))) (make-help-desk-menu-item help-menu)))
(define (make-help-desk-menu-item help-menu) (define (make-help-desk-menu-item help-menu)
(make-object menu-item% (define (docs-menu-item label)
(string-constant help-desk) (new menu-item%
help-menu [label label]
(λ (item evt) [parent help-menu]
(help:help-desk) [callback (λ (item evt) (help:help-desk) #t)]))
#t))) (docs-menu-item (string-constant racket-documentation))
(new separator-menu-item% [parent help-menu])
(docs-menu-item (string-constant help-desk)))

1
collects/string-constants/private/english-string-constants.rkt
View File

@ -328,6 +328,7 @@ please adhere to these guidelines:
;; Help Desk ;; Help Desk
(help "Help") (help "Help")
(racket-documentation "Racket Documentation")
(help-desk "Help Desk") (help-desk "Help Desk")
(plt:hd:search "Search") (plt:hd:search "Search")
(plt:hd:feeling-lucky "Feeling Lucky") (plt:hd:feeling-lucky "Feeling Lucky")