equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
2346 "/ ] |
2344 "/ ] |
2347 "/ ]. |
2345 "/ ]. |
2348 "/ |
2346 "/ |
2349 "/ info := best storeString. |
2347 "/ info := best storeString. |
2350 "/ implClass notNil ifTrue:[ |
2348 "/ implClass notNil ifTrue:[ |
2351 "/ info := implClass name , ' » ' , info. |
2349 "/ info := implClass name , ' ' , info. |
2352 "/ ]. |
2350 "/ ]. |
2353 "/ self information:info. |
2351 "/ self information:info. |
2354 "/]. |
2352 "/]. |
2355 |
2353 |
2356 "/ the one's which are a prefix are moved towards the top of the list |
2354 "/ the one's which are a prefix are moved towards the top of the list |
3386 "/ pool variables |
3384 "/ pool variables |
3387 classOrNil theNonMetaclass sharedPoolNames do:[:poolName | |
3385 classOrNil theNonMetaclass sharedPoolNames do:[:poolName | |
3388 |pool names| |
3386 |pool names| |
3389 |
3387 |
3390 pool := Smalltalk at:poolName. |
3388 pool := Smalltalk at:poolName. |
3391 names := pool classVarNames. |
3389 pool notNil ifTrue:[ |
3392 names := names select:[:nm | nm isUppercaseFirst ]. |
3390 names := pool classVarNames. |
3393 responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]]. |
3391 names := names select:[:nm | nm isUppercaseFirst ]. |
3394 nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]]. |
3392 responders := names select:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]]. |
3395 addWithFactorBlock value:responders value:(2.5 * globalFactor). |
3393 nonResponders := names reject:[:glblVar | |c| c := Smalltalk at:glblVar. c isBehavior not or:[c isLoaded and:[c respondsTo:selectorOfMessageToNode]]]. |
3396 addWithFactorBlock value:nonResponders value:(0.5 * 2.5 * globalFactor). |
3394 addWithFactorBlock value:responders value:(2.5 * globalFactor). |
|
3395 addWithFactorBlock value:nonResponders value:(0.5 * 2.5 * globalFactor). |
|
3396 ]. |
3397 ]. |
3397 ]. |
3398 ] |
3398 ] |
3399 ] |
3399 ] |
3400 ] ifFalse:[ |
3400 ] ifFalse:[ |
3401 classOrNil notNil ifTrue:[ |
3401 classOrNil notNil ifTrue:[ |
4978 "/ ] |
4978 "/ ] |
4979 "/ ]. |
4979 "/ ]. |
4980 "/ |
4980 "/ |
4981 "/ info := best storeString. |
4981 "/ info := best storeString. |
4982 "/ implClass notNil ifTrue:[ |
4982 "/ implClass notNil ifTrue:[ |
4983 "/ info := implClass name , ' » ' , info. |
4983 "/ info := implClass name , ' ' , info. |
4984 "/ ]. |
4984 "/ ]. |
4985 "/ self information:info. |
4985 "/ self information:info. |
4986 |
4986 |
4987 best ~= selector ifTrue:[ |
4987 best ~= selector ifTrue:[ |
4988 numArgs := best numArgs. |
4988 numArgs := best numArgs. |