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

fix bug in example code noted by Ray Racine

Browse Source
This commit is contained in:
Robby Findler 2012-05-12 13:49:33 -05:00
parent 52fa588f7a
commit 0278b9e0af
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribblings/drracket/keybindings.scrbl
View File

@ -298,12 +298,12 @@ s-exp framework/keybinding-lang
(when menu-bar
(define item (find-item menu-bar menu-item))
(when item
(define evt
(define menu-evt
(new control-event%
[event-type 'menu]
[time-stamp
(send evt get-time-stamp)]))
(send item command evt)))))))
(send item command menu-evt)))))))
(define/contract (find-menu-bar c)
(-> (is-a?/c area<%>) (or/c #f (is-a?/c menu-bar%)))