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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev