[Moose-dev] Re: [Pharo-users] Script of the day

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu http://www.bergel.eu/ ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > On Jul 29, 2015, at 11:24 AM, Dimitris Chloupis <kilon.alios@gmail.com mailto:kilon.alios@gmail.com> wrote: > > that was a nice way to freeze my image, thank you :D > > On Wed, Jul 29, 2015 at 4:27 PM Alexandre Bergel <alexandre.bergel@me.com mailto:alexandre.bergel@me.com> wrote: > Hi! > > Just to share a couple of experiment. I have tried the following in a playground: > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > b := RTMondrian new. > > b shape rectangle > if: [ :aFile | aFile path basename beginsWith: '.' ] color: Color red. > b nodes: FileLocator documents allChildren. > b edges connectFrom: #parent. > b normalizer > normalizeSize: #size using: #sqrt. > b layout tree. > b > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > It shows a tree of the file system. Thanks to GT, simply clicking on a file may show you the content and other things. > <Screen Shot 2015-07-29 at 10.23.51 AM.png> > > You can also use the cluster layout: > <Screen Shot 2015-07-29 at 10.25.11 AM.png> > > I have tried this on OS X, since the pointed folder is ~/Documents. > > Cheers, > Alexandre > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu http://www.bergel.eu/ > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > _______________________________________________ > Moose-dev mailing list > Moose-dev@iam.unibe.ch mailto:Moose-dev@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev