<div dir="ltr"><div>Thanks; I&#39;ve fixed the docs bug.</div><div><br></div>FWIW, your code works as expected in the current git head.<div><br>And I&#39;ve been thinking about your earlier message (subject &quot;Developing DrRacket Extensions in the same process&quot;). I haven&#39;t had time to do anything with it yet, but I hope to at least make the situation a little bit better.<div>
<div><br></div><div>Robby</div></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Apr 1, 2013 at 6:07 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:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">I&#39;m using v5.3.3 on OSX. <div><br></div><div>I found that supplying #f to get/extend, as in -</div><div>
(drracket:get/extend:extend-unit-frame frame-mixin #f)<br></div><div>works around the issue (which is odd since #f is the default according to the docs).</div>

<div><br></div><div>Thanks for the response and fix.</div><div><br></div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Apr 1, 2013 at 3:58 PM, Vincent St-Amour <span dir="ltr">&lt;<a href="mailto:stamourv@ccs.neu.edu" target="_blank">stamourv@ccs.neu.edu</a>&gt;</span> wrote:<br>


<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Which version of Racket are you using?<br>
<br>
The current (git) version of Optimization Coach[1] calls `inner&#39; as it<br>
should. I fixed that bug some time ago.<br>
<br>
Sorry for the trouble.<br>
<br>
Vincent<br>
<br>
<br>
[1] Now a PLaneT2 package. Starting with the next Racket release,<br>
    Optimization Coach will be distributed separately from Racket.<br>
<br>
<br>
At Mon, 1 Apr 2013 15:15:26 -0700,<br>
Nick Main wrote:<br>
&gt;<br>
&gt; [1  &lt;multipart/alternative (7bit)&gt;]<br>
&gt; [1.1  &lt;text/plain; ISO-8859-1 (7bit)&gt;]<br>
<div><div>&gt; I edited the source for the optimization coach and to comment out the<br>
&gt; &quot;define/augment on-tab-change&quot; and my augment is now working !<br>
&gt;<br>
&gt; I will file a bug for this.<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; On Mon, Apr 1, 2013 at 2:40 PM, Nick Main &lt;<a href="mailto:david.nick.main@gmail.com" target="_blank">david.nick.main@gmail.com</a>&gt; wrote:<br>
&gt;<br>
&gt; &gt; I am writing a DrRacket plugin and want to react to tab changes. I am<br>
&gt; &gt; augmenting the on-tab-change method, as shown below, but this augmentation<br>
&gt; &gt; is not being invoked when tabs are changed.<br>
&gt; &gt;<br>
&gt; &gt; Is there anything obviously wrong with this approach ?<br>
&gt; &gt;<br>
&gt; &gt; I looked through the Racket source and noticed that the optimization coach<br>
&gt; &gt; does not call  (inner (void) on-tab-change from-tab to-tab) in its<br>
&gt; &gt; (define/augment (on-tab-change from-tab to-tab)... - but changing the<br>
&gt; &gt; before? argument for my extension to #t does not make a difference, so that<br>
&gt; &gt; may be a red-herring.<br>
&gt; &gt;<br>
&gt; &gt; #lang racket/gui<br>
&gt; &gt; (require drracket/tool)<br>
&gt; &gt;<br>
&gt; &gt; (provide tool@)<br>
&gt; &gt;<br>
&gt; &gt; (define tool@<br>
&gt; &gt;   (unit<br>
&gt; &gt;     (import drracket:tool^)<br>
&gt; &gt;     (export drracket:tool-exports^)<br>
&gt; &gt;     (define (phase1) (void))<br>
&gt; &gt;     (define (phase2) (drracket:get/extend:extend-unit-frame frame-mixin)<br>
&gt; &gt; #f)<br>
&gt; &gt;<br>
&gt; &gt;     (define frame-mixin<br>
&gt; &gt;       (mixin (drracket:unit:frame&lt;%&gt;) (drracket:unit:frame&lt;%&gt;)<br>
&gt; &gt;<br>
&gt; &gt;         (define/augment (on-tab-change from-tab to-tab)<br>
&gt; &gt;           (inner (void) on-tab-change from-tab to-tab)<br>
&gt; &gt;           (printf &quot;TAB-CHANGE\n&quot;))<br>
&gt; &gt;<br>
&gt; &gt;         (printf &quot;AUGMENTED !\n&quot;) ;sanity check<br>
&gt; &gt;<br>
&gt; &gt;         (super-new)))))<br>
&gt; &gt;<br>
&gt; &gt; --Nick<br>
&gt; &gt;<br>
</div></div>&gt; [1.2  &lt;text/html; ISO-8859-1 (quoted-printable)&gt;]<br>
&gt;<br>
&gt; [2  &lt;text/plain; us-ascii (7bit)&gt;]<br>
&gt; ____________________<br>
&gt;   Racket Users list:<br>
&gt;   <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
</blockquote></div><br></div>
</div></div><br>____________________<br>
  Racket Users list:<br>
  <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
<br></blockquote></div><br></div>