Creating *many* files.
Torge.Husfeldt
Torge.Husfeldt at gmx.de
Mon Nov 25 11:01:09 UTC 2002
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/
>
>
>
>
More information about the Squeak-dev
mailing list
|