can I get your code (from an attached change set as an example), it would be cool to make another example out of this. btw, I will answer to your questions Cheers Alain Le 06/03/2012 00:13, Alexis Parseghian a écrit :
I've been playing with MorphTree et al. for the past few days, trying to understand how they work. Reading the example code in Morphic-MorphTreeWidget-Examples helped. I've also been trying to figure out the Settings Browser, but this one I have a hard time following :(
Anyway, I think I've got the basics now : I instantiate a MorphTreeMorph when building my window in an subclass of a MorphTreeModel. The contents of my model's list get wrapped in the appropriate MorphTreeNodeModel subclasses.
I can get the tree to display *what* I want. My problem is with the *how* ; more specifically, how to get the columns right.
* the first column always displays correctly, with or without an expander (and in the latter case, expanded or not). * the following columns have the text overlapping their left-side resizer by about half a character. * subsequent columns display off their vertical boundaries (to the right), seemingly depending on the length of the preceeding column. Same as if there were no columns but just morphs abutted to one another. Manually resizing the previous column to contain the longest text gets me back to the previous case (half a char too much to the left). In other words, if I'm guessing right, the column clips its contents /visually/, but not in relation to their /reported width/.
I'm pretty sure there's something really basic I've missed in the layout, but I can't figure it out from the example code nor the classes' protocols.
Any hints ?
Thanks.
My code:
* the root list is a collection of associations 'string' -> article instance * I'm building a view with the category (expandable) in the first column. Once expanded, it shows the article's properties in columns.
CategoriesAndArticlesTree(MorphTreeModel)>>buildTree | treeMorph | treeMorph := (self treeMorphClass on: self) columns: { MorphTreeColumn new rowMorphGetSelector: #categoryOrAuthor. MorphTreeColumn new rowMorphGetSelector: #title; headerButtonLabel: 'Title' font: nil. MorphTreeColumn new rowMorphGetSelector: #issue. MorphTreeColumn new rowMorphGetSelector: #foo }. treeMorph hResizing: #spaceFill; vResizing: #spaceFill; withHLines: true; makeLastColumnUnbounded; resizerWidth: 1. ^ (treeMorph buildContents ) CategoriesAndArticlesTree>>rootNodeClassFromItem: anItem ^ CategoriesTreeNode
CategoriesTreeNode(MorphTreeNodeModel)>>categoryOrAuthor ^ self theme builder newLabel: item key CategoriesTreeNode>>childNodeClassFromItem: anItem ^ ArticlesTreeNode CategoriesTreeNode>>childrenItems ^ item value the other column-related selectors are implemented and return a nil.
ArticlesTreeNode(MorphTreeNodeModel) implements the column-related selectors by returning the appropriate article property wrapped in a label. ArticlesTreeNode>>categoryOrAuthor ^ self theme builder newLabel: item author ArticlesTreeNode>>foo ^ self theme builder newLabel: 'foo'