Hi Alexandre,

On 29 March 2018 at 15:07, Alexandre Bergel <alexandre.ber...@me.com> wrote:
> Easy.
>
> You can add a reset button:
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> v := RTView new.
> b := [ :someClasses |
>        g := RTGrapher new.
>        g view: v.
>        ds := RTData new.
>        ds points: someClasses.
>        ds y: [ :cls | cls numberOfMethods ].
>        ds x: [ :cls | cls numberOfLinesOfCode ].
>        g add: ds.
>
>        g addDecorator: (RTRangeSelector new callback: [ :es |
>                | classesToZoomIn |
>
>                classesToZoomIn := es collect: #model.
>                v cleanAll.
>                b value: classesToZoomIn
>        ]).
>        g build.
>         v addMenu: 'Reset' callback: [ v cleanAll. b value: RTShape 
> withAllSubclasses ].
> ].
>
> b value: RTShape withAllSubclasses.
> v
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


Thanks!  All working now...

Cheers,
Alistair

Reply via email to