6 Jan
2012
6 Jan
'12
9 p.m.
Hi,
Thanks for looking into this so deep :). This is more than welcome. Please continue :).
I intentionally do not show the horizontal scrollbar because when you have a list with
long items, I do not want to have the horizontal scrollbar. I agree that there might be
times when you would need it, but in most cases it's a usability impediment.
Now, if we talk about tables, the current implementation is barely useful for a narrow set
of cases in which we just show a list with one or two columns. It's not really a
table. So, to fix this, we have to implement a real table with useful semantics.
One option would be to add this as a setting to the presentation, but I do not want to do
that either. The reason is that I would like to limit as much as possible the settings of
the presentations because they should be about browsing, not about manipulating the
graphical appearance of the widget.
Cheers,
Doru
On 6 Jan 2012, at 19:37, Guillermo Polito wrote:
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
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"If you interrupt the barber while he is cutting your hair,
you will end up with a messy haircut."