[Moose-dev] Mondrian question

hi all I would like to display files and folders. I did something like that but it only display folder and I do not like the first nesting (the first folder got the other nested in). I also found FolderGroup rather boring because it is not polymorphic to folder. May be we should really start to consider trait for Famix40. view shape rectangle width: #numberOfFiles; height: #numberOfFunctions. view nodes: folderGroup forEach: [:each | view node: each. view shape rectangle width: #numberOfFiles; height: #numberOfFunctions. view nodes: each allRecursiveFolders. view nodes: each allRecursiveFiles. view edgesFrom: #belongsTo. view treeLayout. view interaction popupText: [:aFile | aFile entities first numberOfVariables printString, ' variables x ', aFile entities first numberOfFunctions printString, ' functions ' ]. ] any suggestion how to code that in a better way? Mondrian looks too magic for me. Stef