[Seaside] Multiselect broken

[Joseph Blatter]

Using Seaside2.7b1-mb.12 and Scriptaculous-lr.208. WAKom started with:

WAKomEncoded39 startOn: 9090

To reproduce point your browser to http://localhost:9090/seaside/tests/scriptaculous , then click on "Form" tab. This is the output:

MessageNotUnderstood: WARenderCanvas>>multiSelect

    * WARenderCanvas(Object)>>doesNotUnderstand: #multiSelect

          self    a WARenderCanvas
          temps
          aMessage    multiSelect
          inst vars
          currentBrush    nil
          parentBrush    a WAFormTag
          painter    a SUFormTest
          context    a WARenderingContext
          callbacks    a WACallbackRegistry

    * [] in SUFormTest>>renderMultiSelectListOn: {[:fid :mid | html multiSelect size: 3; list: (1 to: 9); selected: mu...]}

          self    a SUFormTest
          temps
          html    a WARenderCanvas
          fid    'id43'
          mid    'id44'
          value    nil
          r    nil
          inst vars
          decoration    a WAStateHolder(a SUFormTest)
          textInput    'Text Input'
          textArea    'Text Area'
          checkBox    false
          radioButton    1
          selectList    1
          mutliSelectList    (1 to: 2)

    * [] in SUFormTest>>renderLabel:control:model:on: {[aBlock value: fid value: (mid := html nextId)]}

          self    a SUFormTest
          temps
          aString    'Multi-Select-List'
          aBlock    [] in SUFormTest>>renderMultiSelectListOn: {[:fid :mid | html multiSelect size: 3; list: (1 to:...etc...
          anObject    (1 to: 2)
          html    a WARenderCanvas
          fid    'id43'
          mid    'id44'
          inst vars
          decoration    a WAStateHolder(a SUFormTest)
          textInput    'Text Input'
          textArea    'Text Area'
          checkBox    false
          radioButton    1
          selectList    1
          mutliSelectList    (1 to: 2)

    * BlockContext>>renderOn:

          self    [] in SUFormTest>>renderLabel:control:model:on: {[aBlock value: fid value: (mid := html nextId)]}
          temps
          aRenderer    a WARenderCanvas
          inst vars
          sender    BlockContext>>renderOn:
          pc    117
          stackp    0
          nargs    0
          startpc    110
          home    SUFormTest>>renderLabel:control:model:on:

    * WAFormTag(WATagBrush)>>within:

          self    a WAFormTag
          temps
          aBlock    [] in SUFormTest>>renderLabel:control:model:on: {[aBlock value: fid value: (mid := html nextId)]}
          inst vars
          parent    a WADivTag
          canvas    a WARenderCanvas
          isClosed    false
          attributes    a WAHtmlAttributes
          defaultAction    nil

       
---------------------------------
 Ne gardez plus qu'une seule adresse mail ! Copiez vos mails vers Yahoo! Mail 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/seaside/attachments/20070809/8a2ffb3d/attachment.htm