11 Nov
2011
11 Nov
'11
6:36 a.m.
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.
In that case, what could be simple is to explicitly separate the edges you want to use for
your layout and the one you add outside the inner nodes.
Alexandre
Cheers,
Doru
On 9 Nov 2011, at 17:46, Usman Bhatti wrote:
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
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 ', model name.
packages := model allPackages select: [:pack | (pack name includesSubString:
'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(a)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:
--
www.tudorgirba.com
"Quality cannot be an afterthought."
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev 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(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev