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