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

Fix tab leak.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-07-25 16:21:49 -04:00
parent 144fd5bf05
commit f50d64b3b2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-racket/optimizer/tool/tool.rkt
View File

@ -190,10 +190,11 @@
(keymap:add-to-right-button-menu
(let ([old (keymap:add-to-right-button-menu)])
(lambda (menu editor event)
(define definitions (get-definitions-text))
(let-values ([(pos text) (send definitions get-pos/text event)])
(send definitions build-optimization-coach-popup-menu
menu pos text))
(let-values ([(pos text) (send editor get-pos/text event)])
(when (is-a? editor drracket:unit:definitions-text<%>)
;; has the optimization-coach mixin
(send editor build-optimization-coach-popup-menu
menu pos text)))
(old menu editor event))))