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]