'From Cuis 1.0 of 4 September 2009 [latest update: #290] on 23 September 2009 at 12:24:21 am'!

!ClassBuilder methodsFor: 'private' stamp: 'jmv 9/22/2009 23:12'!
showProgressFor: aClass
	"Announce that we're processing aClass"
	progress == nil ifTrue:[^self].
	aClass isObsolete ifTrue:[^self].
	currentClassIndex _ currentClassIndex + 1.
	(aClass hasMethods and: [aClass wantsRecompilationProgressReported]) ifTrue: [
		[	"As we might be recompiling the  lasses involved in showing progress, ignore errors. After all, they are harmless."
			progress value: ('Recompiling ', aClass name,' (', currentClassIndex printString,'/', maxClassIndex printString,')')
		] on: Error do: []]! !
