mondrian help

> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

> 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 <[hidden email]> 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
> > [hidden email]
> > https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

>  
>
> 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 ', 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 <[hidden email]> 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
> > > [hidden email]
> > > https://www.iam.unibe.ch/mailman/listinfo/moose-dev
> >
> > --
> > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> > Alexandre Bergel  http://www.bergel.eu
> > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
> >
> >
> >
> >
> >
> > _______________________________________________
> > Moose-dev mailing list
> > [hidden email]
> > https://www.iam.unibe.ch/mailman/listinfo/moose-dev
> >
> > _______________________________________________
> > Moose-dev mailing list
> > [hidden email]
> > https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> www.tudorgirba.com
>
> "Quality cannot be an afterthought."
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev