Hi Markus,

Am 20.11.2002 16:53:04 schrieb Markus Fritsche <Fritsche.Markus at gmx.net>:

>Andreas.Raab at gmx.de wrote:
>
>>Ah, but you see this is a conceptional mistake - texCoordS and texCoords
>>should have never be named that way and if selectors were case insensitive (as
>>they should) I would have never made the mistake of naming the methods that
>>similar.
>>  
>>
>
>| s i | s _ Set new. i _ 0.
>Smalltalk allClassesDo: [ :clz |
>    clz methodDict keysDo: [ :sel |
>        s add: (clz name, '-', (sel asUppercase)).
>        i _ i + 1.
>    ].
>    Transcript show: clz; cr. "Show progress"
>].
>i - (s size).
>
>Evaluates to '2'. So, there is another of this pair, or do I an 
>off-by-one mistake?
No need to second-guess here,
The following:
| s i point |
point _ Sensor cursorPoint.
'Analyzing MethodDictionaries'
	displayProgressAt: point
	from: 1 to: CompiledMethod allInstances size
	during:[:bar |
		s _ Bag new.
		i _ 1.
		Smalltalk allClassesDo: [ :clz |
"			'Current class: ', clz name displayAt: point+ (0 at 30)."
			clz methodDict keysDo: [ :sel |
			bar value: i.
			s add: (clz name, '-', (sel asUppercase)).
			i _ i +1]].
		(s sortedCounts select:[:each | each key > 1]) asArray] "alt-p (printIt)" 
gave me:
  #(2->'PDA-DECLARELASTDATE' 2->'B3DPrimitiveVertex-TEXCOORDS')

>
>-- 
>http://reauktion.de/archer/
>
>
>
>