<div dir="ltr">I edited the source for the optimization coach and to comment out the &quot;define/augment on-tab-change&quot; and my augment is now working !<div><br></div><div>I will file a bug for this.</div><div><br></div>

<div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Apr 1, 2013 at 2:40 PM, Nick Main <span dir="ltr">&lt;<a href="mailto:david.nick.main@gmail.com" target="_blank">david.nick.main@gmail.com</a>&gt;</span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr"><div>I am writing a DrRacket plugin and want to react to tab changes. I am augmenting the on-tab-change method, as shown below, but this augmentation is not being invoked when tabs are changed.</div>

<div>
<br></div><div>Is there anything obviously wrong with this approach ?</div><div><br></div><div>I looked through the Racket source and noticed that the optimization coach does not call  (inner (void) on-tab-change from-tab to-tab) in its (define/augment (on-tab-change from-tab to-tab)... - but changing the before? argument for my extension to #t does not make a difference, so that may be a red-herring.</div>


<br><div><div>#lang racket/gui</div><div>(require drracket/tool)</div><div> </div><div>(provide tool@)</div><div><br></div><div>(define tool@</div><div>  (unit</div><div>    (import drracket:tool^)</div><div>    (export drracket:tool-exports^)</div>


<div>    (define (phase1) (void)) </div><div>    (define (phase2) (drracket:get/extend:extend-unit-frame frame-mixin) #f)</div><div>    </div><div>    (define frame-mixin</div><div>      (mixin (drracket:unit:frame&lt;%&gt;) (drracket:unit:frame&lt;%&gt;)</div>


<div>    </div><div>        (define/augment (on-tab-change from-tab to-tab) </div><div>          (inner (void) on-tab-change from-tab to-tab)</div><div>          (printf &quot;TAB-CHANGE\n&quot;))</div><div>        </div>


<div>        (printf &quot;AUGMENTED !\n&quot;) ;sanity check</div><div>        </div><div>        (super-new)))))</div></div><span class=""><font color="#888888"><div><br></div><div>--Nick</div></font></span></div>
</blockquote></div><br></div></div></div>