Hi Doru!
GLMMorphicListingRendered>>treeMorphFor:and:
Which is the method that renders a table, hehe, only puts a vertical scrollbar:
treeMorphFor: tmpTreeModel and: aPresentation | tmpTreeMorph columns | tmpTreeMorph := MorphTreeMorph new. tmpTreeMorph makeLastColumnUnbounded; doubleClickSelector: #onDoubleClick; getMenuSelector: #menu:shifted:; keystrokeActionSelector: #keyStroke:from:; cornerStyle: tmpTreeMorph preferredCornerStyle; borderStyle: (BorderStyle inset width: 1); autoDeselection: aPresentation allowsDeselection; hResizing: #spaceFill; vResizing: #spaceFill; layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)). columns := aPresentation columns isEmpty ifTrue: [ OrderedCollection with: (MorphTreeColumn new rowMorphGetSelector: #elementColumn)] ifFalse: [ aPresentation columns collect: [:each | GLMMorphTreeColumn new startWidth: each width; glamourColumn: each; headerButtonLabel: (aPresentation titleValueOfColumn: each) font: StandardFonts menuFont target: nil actionSelector: nil arguments: #(); yourself ]. ]. tmpTreeMorph preferedPaneColor: Color white; model: tmpTreeModel; nodeListSelector: #roots; columns: columns. aPresentation isMultiple ifTrue: [tmpTreeMorph beMultiple] ifFalse: [tmpTreeMorph beSingle]. tmpTreeModel chunkSize: aPresentation amountToShow. * tmpTreeMorph vShowScrollBar.* ^ tmpTreeMorph buildContents
And if you have a large table with many columns, you can't scroll to the rightest end. I've changed that line by
tmpTreeMorph showScrollBars.
and the list and tree examples looks still ok.
Thanks, Guille