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.
You can also use the cluster layout:
I have tried this on OS X, since the pointed folder is ~/Documents.
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.