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 |
2412 nodeReceiver isVariable ifTrue:[ |
2410 nodeReceiver isVariable ifTrue:[ |
2413 valueInfo := ' (current value of %1)' bindWith:nodeReceiver name. |
2411 valueInfo := ' (current value of %1)' bindWith:nodeReceiver name. |
2414 ] ifFalse:[ |
2412 ] ifFalse:[ |
2415 valueInfo := ' (current value of expression)'. |
2413 valueInfo := ' (current value of expression)'. |
2416 ]. |
2414 ]. |
2417 valueInfo := valueInfo withColor:(Color grey). |
2415 valueInfo := valueInfo allGray. |
2418 ]. |
2416 ]. |
2419 ]. |
2417 ]. |
2420 ]. |
2418 ]. |
2421 |
2419 |
2422 (allBest isEmptyOrNil |
2420 (allBest isEmptyOrNil |
2513 "/ ] |
2511 "/ ] |
2514 "/ ]. |
2512 "/ ]. |
2515 "/ |
2513 "/ |
2516 "/ info := best storeString. |
2514 "/ info := best storeString. |
2517 "/ implClass notNil ifTrue:[ |
2515 "/ implClass notNil ifTrue:[ |
2518 "/ info := implClass name , ' » ' , info. |
2516 "/ info := implClass name , ' » ' , info. |
2519 "/ ]. |
2517 "/ ]. |
2520 "/ self information:info. |
2518 "/ self information:info. |
2521 "/]. |
2519 "/]. |
2522 |
2520 |
2523 (parentSelector notNil and:[parentSelector includes:$:]) ifTrue:[ |
2521 (parentSelector notNil and:[parentSelector includes:$:]) ifTrue:[ |
5248 "/ ] |
5246 "/ ] |
5249 "/ ]. |
5247 "/ ]. |
5250 "/ |
5248 "/ |
5251 "/ info := best storeString. |
5249 "/ info := best storeString. |
5252 "/ implClass notNil ifTrue:[ |
5250 "/ implClass notNil ifTrue:[ |
5253 "/ info := implClass name , ' » ' , info. |
5251 "/ info := implClass name , ' » ' , info. |
5254 "/ ]. |
5252 "/ ]. |
5255 "/ self information:info. |
5253 "/ self information:info. |
5256 |
5254 |
5257 best ~= selector ifTrue:[ |
5255 best ~= selector ifTrue:[ |
5258 numArgs := best numArgs. |
5256 numArgs := best numArgs. |