On Mon, Sep 15, 2014 at 4:28 PM, Stephan Eggermont <stephan@stack.nl> wrote:

Does it make sense to warn more than once for each variable?

Stephan

distibutionMapOn: a
�� a roassal2
�� title: 'Distribution map';
�� painting: [:view2 |
�� "Simple example of a distribution map.
�� Green methods are short. Orange are long. Red are very long"
�� | view classes d packages�� |
�� self halt.
�� packages := self forumPackages.
�� classes := OrderedCollection new.
�� packages do: [ :p | classes addAll: p classes ].
�� d := IdentityDictionary new.
�� classes do: [:aClass | aClass methods do: [:m | d at: m put: m getSource lineCount ] ].

�� view shape rectangle withoutBorder.
�� view nodes: classes forEach: [ :each |
�� view shape label.
�� view node: each.
�� view node: each forIt: [
�� view interaction�� action: #browse.
�� view shape rectangle size: 8;
�� if: [:m | (d at: m) < 5 ] fillColor: Color green;
�� if: [:m | (d at: m) >= 5 and: [ (d at: m) < 25 ] ] fillColor: Color orange;
�� if: [:m | (d at: m) >= 25 ] fillColor: Color red.
�� view nodes: (each methods sortedAs: [:m | (d at: m) ]).
�� view gridLayout gapSize: 1 ].
�� view verticalLineLayout ].

�� view gridLayout]