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