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

Call inner when augmenting methods.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-01-11 14:50:49 -05:00
parent 903eec448e
commit 54c8394280
1 changed files with 6 additions and 3 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

@ -179,9 +179,11 @@
(when on?
(send+ this (get-tab) (get-frame) (close-optimization-coach))))
(define/augment (on-insert start len)
(clear-and-close))
(clear-and-close)
(inner #f on-insert start len))
(define/augment (on-delete start len)
(clear-and-close))
(clear-and-close)
(inner #f on-delete start len))
(define/public (build-optimization-coach-popup-menu menu pos text)
(and pos
@ -348,7 +350,8 @@
(hide-optimization-coach))
(when (send (send new-tab get-defs) optimization-coach-visible?)
;; if it was open before
(show-optimization-coach)))
(show-optimization-coach))
(inner #f on-tab-change old-tab new-tab))
;; sets up definitions copying, separate thread, error handling, etc.