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.
[image: 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;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(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