| bag |
bag := Bag new.
'Analyzing all source code...'
	displayProgressAt: Sensor cursorPoint
	from: 0 to: Smalltalk classNames size
	during: [:bar |
		| count |
		count := 0.
		SystemNavigation default allBehaviorsDo: [:class |
			bar value: (count := count + 1).
			class selectorsDo: [:sel | bag addAll: (class sourceCodeAt: sel)]]].
^bag sortedCounts