On Wed, Nov 9, 2011 at 9:27 PM, Tudor Girba tudor@tudorgirba.com wrote:
Just define the edges outside of the root nodes.
Ok thanx doru. It worked. But if I draw my edges outside of the root nodes, I lose the dominanceTreeLayout of the nodes inside the root nodes. How can I force the inner nodes to arrange themselves in the dominanceTreeLayout after I have drawn the edges. because if i do it in the outside block, it is only applicable to the root nodes.
Cheers, Doru
On 9 Nov 2011, at 17:46, Usman Bhatti wrote:
Thanx Alex.. that helps. now I do not know how to draw edges from the nodes in different
groupings (bigger rectangles). I tried various methods but I didn't succeed.
<Screen shot 2011-11-09 at 5.45.09 PM.png>
here is my script for this:
| view packages| view := MOViewRenderer new title: 'Dependency Browser ', modelname.
packages := model allPackages select: [:pack | (pack nameincludesSubString: 'Citezen') or: [pack name includesSubString: 'Seaside'] ].
view shape label. view node: 'Citezen'.view node: #aaa forIt:[view shape rectangle width: [:pack | pack numberOfProviderPackages + 3 *3]; height: [:pack | pack numberOfClientPackages + 6 * 3]; fillColor: Color red. view nodes: (model allPackages select: [:pack | (pack name
includesSubString: 'Citezen') ]).
view edgesToAll:#staticProviderPackages. view dominanceTreeLayout. ].view shape label. view node: 'Seaside'. view node: #bbb forIt:[ view shape rectangle width: [:pack | pack numberOfProviderPackages + 3 *3]; height: [:pack | pack numberOfClientPackages + 6 * 3]; fillColor: Color lightBlue. view nodes: (model allPackages select: [:pack | (pack name
includesSubString: 'Seaside-Core') and: [(pack name includesSubString: 'Citezen') not]]).
view edgesToAll:#staticProviderPackages. view dominanceTreeLayout. ].view edges: packages to:#staticClientPackages. view open.
On Wed, Nov 9, 2011 at 4:50 PM, Alexandre Bergel <
alexandre.bergel@me.com> wrote:
Sure.
Something like:
view node: 'left red node' forIt: [ view nodes: "your red nodes" ... view dominanceTreeLayout ]. view node: 'right blue node' forIt: [ view nodes: "your blue nodes" ... view dominanceTreeLayout ].
Does this answer to your question?
Cheers, Alexandre
On 9 Nov 2011, at 07:22, Usman Bhatti wrote:
I am working on this script to see dependencies of seaside and
citezen...
I would to group the nodes according to their names in Mondrian. Is it
possible? Here is my script:
view shape rectangle width: [:pack | pack numberOfProviderPackages + 3 *3]; height: [:pack | pack numberOfClientPackages + 6 * 3]; if: [:pack | pack name includesSubString: 'Citezen']fillColor: Color red;
if: [:pack | (pack name includesSubString: 'Seaside') and:[(pack name includesSubString: 'Citezen' ) not]] fillColor: Color lightBlue.
view nodes: (model allPackages select: [:pack | ((pack name
includesSubString: 'Citezen') or: [pack name includesSubString: 'Seaside']) or: [pack name includesSubString: 'Pier']]).
view edgesToAll: #staticProviderPackages. view dominanceTreeLayout..
Like in the figure, I would like to group red nodes on the left and
light blue nodes on the right and at the same time keeping dominanceTreeLayout.
<Screen shot 2011-11-09 at 4.08.18 PM.png>
thanx. Usman _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- www.tudorgirba.com
"Quality cannot be an afterthought."
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev