[Cuis] Class categegory statistics

[H. Hirzel]

Hello

I have started adapting a code snippet to Cuis for doing a class
statistics by category (packages)

Adapted from: http://wiki.squeak.org/squeak/3087 , does not work yet.


String streamContents:
[ :stream | self systemCategoryList do:
	
	[ :cat | stream nextPutAll: '!', cat asString, String crlfString .
		
		(SystemOrganizer new listAtCategoryNumber:
			(self systemCategoryList indexOf: cat ))
			do: [ :class | stream nextPutAll: '-', class asString, String crlfString.
				]
			]
].



Could go later into menu 'Help' / 'Useful expressions' workspace.

-- Hannes