Thank you Cyrille, that&#39;s exactly what I want. You may want to be noticed of a couple of issues<br><br>-When opened, the RadioButtonsPart has the first radio button option selected  (which is set in SingleButtonAtLeastOneSelectionPart&gt;&gt;options: ) and I&#39;ve found no way of opening the radio buttons all unselected, this is to force the user to select one option before hitting Next button. I&#39;ve modified the following method but I suspect there is a better way:<br>

<br>&gt;&gt;initializeRadioButtons<br>
<br>
    radioButtons := <br>
            self wizardPart options collect: [:aSymbol |<br>
                |radioButton|<br>
                radioButton := (self newRadionButtonFor: (self 
wizardPart modelOfOption: aSymbol) getSelected: #contents setSelected: 
#contents:  label: aSymbol).<br>
                radioButton buttonMorph selected: false.<br>
                radioButton<br>
            ].<br>
    ^ radioButtons <br><br><br>-Another thing is that it seems there is no way to set up the initial extension of the container.<br>-Finally in this method the parameter anOption is not used<br><br>unselectOption: anOption<br>
<br>    self selectedOption: nil.<br>
    self hasChanged.<br><br><br>Hernán        <br><br><br><div class="gmail_quote">2012/4/11 Cyrille Delaunay <span dir="ltr">&lt;<a href="mailto:cy.delaunay@gmail.com" target="_blank">cy.delaunay@gmail.com</a>&gt;</span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>hello,</div>I&#39;m not sure to see exactly what you are looking for, but it could look like something like that:<div><br></div><div><div>| wizard  tmpPane1 tmpPane2 tmpPane3 |</div><div><div>    </div><div>
wizard := WizardControl new.</div>
<div>wizard renderer: MerlinMorphicWizardRenderer new.</div></div><div>tmpPane1 := ( WizardFirstPane new</div><div><div>                row: ( RadioButtonsPart  new</div><div>                        inGroupboxNamed: &#39;Choose Option A&#39;;</div>


<div>                        options: { #&#39;Option 1&#39;. #&#39;Option 2&#39; };</div><div>                        defaultValue: nil;    </div></div><div><span style="white-space:pre-wrap">				</span>callback: [:value :tmpPart |</div>


<div><span style="white-space:pre-wrap">							</span>(value = #&#39;Option 2&#39;) ifTrue: [</div><div><span style="white-space:pre-wrap">								</span>wizard selectBranch: 2.</div><div>
<span style="white-space:pre-wrap">								</span>]</div><div><span style="white-space:pre-wrap">							</span>ifFalse: [</div><div><span style="white-space:pre-wrap">								</span>wizard selectBranch: 1.</div>
<div><span style="white-space:pre-wrap">								</span>]</div><div><span style="white-space:pre-wrap">							</span>];        </div><div>                        yourself )</div><div><span style="white-space:pre-wrap">			</span>associatedTo: #optionA</div>


<div><span style="white-space:pre-wrap">			</span>).</div><div><br></div><div>    tmpPane2 :=( WizardLastPane new</div><div><div>                    row: ( ListPart new</div><div>                            initialList: { 1 . 2 . 3 . 4 };</div>


<div>                            yourself )</div></div><div><span style="white-space:pre-wrap">			</span>associatedTo: #optionB</div><div> ).</div><div><br></div><div>   tmpPane3 := ( WizardLastPane new</div><div>
<div>
                row: ( RadioButtonsPart  new</div><div>                        inGroupboxNamed: &#39;Choose Option B&#39;;</div><div>                        options: { #&#39;Option 3&#39;. #&#39;Option 4&#39; };</div><div>


                        defaultValue: nil;            </div><div>                        yourself )</div></div><div><span style="white-space:pre-wrap">			</span>associatedTo: #optionB</div><div>).</div><div><br>
</div><div>wizard addPane: tmpPane1.</div><div>wizard addPane: tmpPane2 .</div><div>wizard addBranch.</div><div>wizard selectBranch: 2.</div><div>wizard addPane: tmpPane1.</div><div>wizard addPane: tmpPane3 .</div><div>wizard selectBranch: 1.</div>


<div><span style="white-space:pre-wrap">	</span></div><div>wizard open. </div></div><div><br></div><div><br></div><div>You can also look at the class MerlinExamples, there is several examples in the class side.</div>
<div><div><br><br><div class="gmail_quote"><div><div>2012/4/10 Hernán Morales Durand <span dir="ltr">&lt;<a href="mailto:hernan.morales@gmail.com" target="_blank">hernan.morales@gmail.com</a>&gt;</span><br></div>
</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div>
Hi all, I&#39;m using Merlin and need some help, for example in the following script I want to associate the next button with the &#39;Option 2&#39; to the ListPart (in a second pane) and the next button with the &#39;Option 1&#39; to the radio button pane group (options 3 and 4, in another second pane). Should I use branches? and callbacks? May anyone show an example how to do it?<br>



<br>| wizard  |<br>    <br>wizard := WizardControl new.<br>wizard renderer: MerlinMorphicWizardRenderer new.<br>wizard <br>    addPane: ( WizardFirstPane new<br>                row: ( RadioButtonsPart  new<br>                        inGroupboxNamed: &#39;Choose Option A&#39;;<br>



                        options: { #&#39;Option 1&#39;. #&#39;Option 2&#39; };<br>                        defaultValue: nil;            <br>                        yourself )<br>                associatedTo: #optionSelected );<br>



    addPane: ( WizardMiddlePane new<br>                    row: ( ListPart new<br>                            initialList: { 1 . 2 . 3 . 4 };<br>                            yourself ) );<br>    addPane: ( WizardFirstPane new<br>



                row: ( RadioButtonsPart  new<br>                        inGroupboxNamed: &#39;Choose Option B&#39;;<br>                        options: { #&#39;Option 3&#39;. #&#39;Option 4&#39; };<br>                        defaultValue: nil;            <br>



                        yourself )<br>                associatedTo: #optionSelected ).<br>wizard open. <br><br>Cheers,<br><br>Hernán<br><br>
<br></div></div>_______________________________________________<br>
Moose-dev mailing list<br>
<a href="mailto:Moose-dev@iam.unibe.ch" target="_blank">Moose-dev@iam.unibe.ch</a><br>
<a href="https://www.iam.unibe.ch/mailman/listinfo/moose-dev" target="_blank">https://www.iam.unibe.ch/mailman/listinfo/moose-dev</a><br>
<br></blockquote></div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br>Cyrille Delaunay<div><a href="http://cyrilledelaunay.seasidehosting.st/" target="_blank">http://cyrilledelaunay.seasidehosting.st/</a></div>

<br>
</font></span></div></div>
<br>_______________________________________________<br>
Moose-dev mailing list<br>
<a href="mailto:Moose-dev@iam.unibe.ch" target="_blank">Moose-dev@iam.unibe.ch</a><br>
<a href="https://www.iam.unibe.ch/mailman/listinfo/moose-dev" target="_blank">https://www.iam.unibe.ch/mailman/listinfo/moose-dev</a><br>
<br></blockquote></div><br>