[Moose-dev] Re: 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 _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev