WebMenu seems not to work in trunk and 4.1

Hi,

using a WebMenu in Trunk, I get a debugger because in
WebMenu>>printOptionsOn:
the line:
session := self firstSessionFromStack.
gets a WriteStream instead of a WebSession.

This happens in both VM's Update 10382 as well as in a fresgly
downloaded 4.1.


Cheers,

Herbert                          mailto:[hidden email]

_______________________________________________
Aida mailing list
[hidden email]
http://lists.aidaweb.si/mailman/listinfo/aida

Hi ,
HK> using a WebMenu in Trunk, I get a debugger because in
WebMenu>>>printOptionsOn:
HK> the line:
HK> session := self firstSessionFromStack.
HK> gets a WriteStream instead of a WebSession.

which is fixed by:

printOptionsOn: aStream
        | option preselected |
        self collection isEmpty ifTrue: [^nil].
        self prepareSelected.
        preselected := self selected notNil ifTrue: [self selected asSet] ifFalse: [#()].
        aStream nextPutAll: '<option></option>'. "empty choice"
        "session := self firstSessionFromStack."
        self collection do: [:each |
                option := self aspect isNil ifTrue: [each] ifFalse: [each perform: self aspect].
                option := AIDASite convertToWeb: option on: self session.
                aStream nextPutAll: '<option'.
                aStream nextPutAll: ((preselected includes: each) ifTrue: [' selected>'] ifFalse: ['>']).
                aStream nextPutAll: option; nextPutAll: '</option> ' ]



Cheers,

Herbert                            mailto:[hidden email]

_______________________________________________
Aida mailing list
[hidden email]
http://lists.aidaweb.si/mailman/listinfo/aida