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

Allow launching OC when it's already running.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-09-10 15:20:15 -04:00
parent 39100bd3e3
commit 251159e64a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -242,7 +242,9 @@
[value #f]))) ; will be updated in `show-optimization-coach'
(define/public (show-optimization-coach)
(cond [panel (send (get-area-container) add-child panel)]
(define area-container (get-area-container))
(cond [panel (or (memq panel (send area-container get-children))
(send area-container add-child panel))]
[else (create-panel)])
;; update check-boxes
(define filters (send (get-definitions-text) get-filters))