b := RTCircularTreeMapBuilder new. b shape color: Color transparent; if: [ :each | each isFile ] fillColor: (Color blue alpha: 0.3); borderColor: Color veryLightGray. b baseradius: 400; weight: [ :each | each isFile ifTrue: [each size max: 1] ifFalse: [(each allChildren sumNumbers: #size) max: 1 ] ]. b explore: FileLocator documents using: [ :each | each isFile ifFalse: [each children ] ifTrue: [ {} ]]. b