[bug] MASingleOptionDescription beExtensible not working?

[Keith Hodges]

Dear Lukas,

I found this little walkback when setting beExtensible.

oh and btw, SUTabbedPanel breaks if you dont add any elements

best regards

Keith

===========
Subject: [BUG]WASelectTag(Object)>>doesNotUnderstand:
#otherLabel:otherCallback:promptString:

WASelectTag(Object)>>doesNotUnderstand:
#otherLabel:otherCallback:promptString:
    Receiver: a WASelectTag
    Arguments and temporary variables:
        aMessage:     otherLabel: '(other)' otherCallback: [] in
MASelectListComponent>>ren...etc...
    Receiver's instance variables:
        canvas:     a WARenderCanvas
        parent:     nil
        closed:     false
        attributes:     a WAHtmlAttributes
        list:     an OrderedCollection(nil 'click-page' 'shelf'
'shelf-template' 'side-bar'...etc...
        selected:     nil
        callbackBlock:     [] in MASelectListComponent>>renderEditorOn:
{[:value | self val...etc...
        labelBlock:     [] in MASelectListComponent>>renderEditorOn:
{[:value | self labelF...etc...
        enabledBlock:     nil
        isOptional:     false
        optionalLabel:     nil

[] in MASelectListComponent>>renderEditorOn: {[:tag | self description
isExtensible   ifTrue: [tag     otherLabel: '(other...]}
    Arguments and temporary variables:
        html:     a WARenderCanvas
        value:     nil
        tag:     a WASelectTag

WASelectTag(Object)>>in:
    Receiver: a WASelectTag
    Arguments and temporary variables:
        aBlock:     [] in MASelectListComponent>>renderEditorOn: {[:tag
| self description ...etc...
    Receiver's instance variables:
        canvas:     a WARenderCanvas
        parent:     nil
        closed:     false
        attributes:     a WAHtmlAttributes
        list:     an OrderedCollection(nil 'click-page' 'shelf'
'shelf-template' 'side-bar'...etc...
        selected:     nil
        callbackBlock:     [] in MASelectListComponent>>renderEditorOn:
{[:value | self val...etc...
        labelBlock:     [] in MASelectListComponent>>renderEditorOn:
{[:value | self labelF...etc...
        enabledBlock:     nil
        isOptional:     false
        optionalLabel:     nil

MASelectListComponent>>renderEditorOn:
    Receiver: a MASelectListComponent
    Arguments and temporary variables:
        html:     a WARenderCanvas
        value:     nil
        tag:     a WASelectTag
    Receiver's instance variables:
        smParent:     nil
        decoration:     a WAValueHolder contents: a MASelectListComponent
        memento:     a MACheckedMemento model: a PRSettingsCommand(a
PRComponent name: 'Tabbed Pages Test'...etc...
        description:     a MASingleOptionDescription label: 'Tag'
comment: 'Show items with...etc...
        parent:     a MAContainerComponent


--- The full stack ---
WASelectTag(Object)>>doesNotUnderstand:
#otherLabel:otherCallback:promptString:
[] in MASelectListComponent>>renderEditorOn: {[:tag | self description
isExtensible   ifTrue: [tag     otherLabel: '(other...]}
WASelectTag(Object)>>in:
MASelectListComponent>>renderEditorOn:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MASelectListComponent(MAElementComponent)>>renderContentOn:
MASelectListComponent(WAPresenter)>>renderWithContext:
[] in MASelectListComponent(WAComponent)>>renderOn: {[:each | each
renderWithContext: aRenderer context]}
MASelectListComponent(WAComponent)>>decorationChainDo:
MASelectListComponent(WAComponent)>>renderOn:
WARenderCanvas(WACanvas)>>render:
MATableRenderer(MAComponentRenderer)>>renderControl:
[] in MATableRenderer>>renderControl: {[super renderControl: aDescription]}
BlockContext>>renderOn:
[] in WATableDataTag(WATagBrush)>>with: {[self before.  anObject
renderOn: canvas.  self after]}
BlockContext>>renderOn:
WARenderCanvas(WACanvas)>>nest:
WATableDataTag(WABrush)>>with:
WATableDataTag(WATagBrush)>>with:
MATableRenderer>>renderControl:
MATableRenderer(MAComponentRenderer)>>renderElement:
[] in MATableRenderer>>renderElement: {[super renderElement: aDescription]}
BlockContext>>renderOn:
[] in WAGenericTag(WATagBrush)>>with: {[self before.  anObject renderOn:
canvas.  self after]}
BlockContext>>renderOn:
WARenderCanvas(WACanvas)>>nest:
WAGenericTag(WABrush)>>with:
WAGenericTag(WATagBrush)>>with:
WARenderCanvas(WAHtmlCanvas)>>tableRow:
MATableRenderer>>renderElement:
MATableRenderer(MAComponentRenderer)>>visitElementDescription:
MATableRenderer(MAVisitor)>>visitReferenceDescription:
MATableRenderer(MAVisitor)>>visitOptionDescription:
MATableRenderer(MAVisitor)>>visitSingleOptionDescription:
MASingleOptionDescription>>acceptMagritte:
MATableRenderer(MAVisitor)>>visit:
[] in MATableRenderer(MAVisitor)>>visitAll: {[:each | self visit: each]}
...etc...