Hello,<div><br></div><div>I am struggling with this one for a while, and I can't figure out what's wrong. The callbacks in the component listed below never get called, which makes the div not get updated. I have based this on an example I found at <a href="http://scriptaculous.seasidehosting.st">http://scriptaculous.seasidehosting.st</a></div>
<div><br></div><div>Would anyone please point out what I am missing here?</div><div><br></div><div>'From Squeak3.9.1 of 2 March 2008 [latest update: #7075] on 20 June 2008 at 4:59:28 am'!</div><div>WAComponent subclass: #TMBrowser</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>instanceVariableNames: 'selection'</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>classVariableNames: ''</div><div>
<span class="Apple-tab-span" style="white-space:pre">        </span>poolDictionaries: ''</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>category: 'Testmator-View'!</div><div><br></div><div>
!TMBrowser methodsFor: 'rendering' stamp: 'QCMS 6/20/2008 04:56'!</div><div>renderContentOn: html</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>| fid sid |</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>html heading: 'Browser'.</div>
<div><span class="Apple-tab-span" style="white-space:pre">        </span>html form </div><div><span class="Apple-tab-span" style="white-space:pre">                </span>id: (fid := html nextId);</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>with: [</div>
<div><span class="Apple-tab-span" style="white-space:pre">                        </span>html select</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>list: #('1' '2');</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>selected: selection;</div>
<div><span class="Apple-tab-span" style="white-space:pre">                                </span>callback: [ :value | selection := value ];</div><div><span class="Apple-tab-span" style="white-space:pre">                                </span>onChange: (</div><div><span class="Apple-tab-span" style="white-space:pre">                                        </span>html updater</div>
<div> <span class="Apple-tab-span" style="white-space:pre">                </span> <span class="Apple-tab-span" style="white-space:pre">                </span>id: (sid := html nextId);</div><div> <span class="Apple-tab-span" style="white-space:pre">                        </span> <span class="Apple-tab-span" style="white-space:pre">                </span>triggerForm: fid;</div>
<div><span class="Apple-tab-span" style="white-space:pre">                                                </span>callback: [ :r | r render: selection ])</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>].</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>html div</div>
<div> <span class="Apple-tab-span" style="white-space:pre">                </span>id: sid;</div><div> <span class="Apple-tab-span" style="white-space:pre">                </span>with: selection.</div><div>! !</div><div><br></div><div><br></div><div>
!TMBrowser methodsFor: 'accessing' stamp: 'QCMS 6/19/2008 00:42'!</div><div>selection</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>^selection! !</div><div><br></div><div>!TMBrowser methodsFor: 'accessing' stamp: 'QCMS 6/19/2008 00:43'!</div>
<div>selection: newSelection</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>selection := newSelection! !</div><div><br></div><div><br></div><div>!TMBrowser methodsFor: 'initialization' stamp: 'QCMS 6/20/2008 03:43'!</div>
<div>initialize</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>super initialize.</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>selection := '2'! !</div><div> </div>