Glamour Accordion arrangement - Moose-dev

6 Jan 2012

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