[Moose-dev] Glamour Accordion arrangement

Hi! Mainly to Doru I think, How difficult is to have horizontal Accordion arrangement in glamour? I've hacked a bit in adding the commented lines: GLMMorphicAccordionRenderer>>render: aPresentation | presentations container expander | presentations := aPresentation matchingPresentations. presentations isEmpty ifTrue: [ ^ GLMMorphic emptyMorph ]. presentations size = 1 ifTrue: [ ^ self renderWithToolbar: presentations first ]. container := GLMMorphic containerMorph. container changeTableLayout. * "container listDirection: #leftToRight."* presentations do: [ :each | expander := self theme newExpanderIn: container label: (self titleOrIconOf: each in: container) forAll: {(self renderWithToolbar: each)}. * "expander listDirection: #leftToRight."* container addMorphBack: expander. (aPresentation pane lastActivePresentation notNil and: [ each title = aPresentation pane lastActivePresentation title ]) ifTrue: [ expander expanded: true]]. (aPresentation pane lastActivePresentation isNil and: [container submorphs notEmpty]) ifTrue: [ container submorphs first expanded: true]. ^ container But the expanders just look ugly ugly :) Other IDEs, when you collapse a widget just keep an icon without the label. Should I open an issue? Guille