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 |
2447 "/ ] |
2445 "/ ] |
2448 "/ ]. |
2446 "/ ]. |
2449 "/ |
2447 "/ |
2450 "/ info := best storeString. |
2448 "/ info := best storeString. |
2451 "/ implClass notNil ifTrue:[ |
2449 "/ implClass notNil ifTrue:[ |
2452 "/ info := implClass name , ' » ' , info. |
2450 "/ info := implClass name , ' » ' , info. |
2453 "/ ]. |
2451 "/ ]. |
2454 "/ self information:info. |
2452 "/ self information:info. |
2455 "/]. |
2453 "/]. |
2456 |
2454 |
2457 "/ the one's which are a prefix are moved towards the top of the list |
2455 "/ the one's which are a prefix are moved towards the top of the list |
4577 implementorOfSelectorUpToCursor notNil ifTrue:[ |
4575 implementorOfSelectorUpToCursor notNil ifTrue:[ |
4578 |tree argName| |
4576 |tree argName| |
4579 |
4577 |
4580 SourceCodeManagerError handle:[:ex | |
4578 SourceCodeManagerError handle:[:ex | |
4581 ] do:[ |
4579 ] do:[ |
4582 tree := implementorOfSelectorUpToCursor parseTree. |
4580 tree := implementorOfSelectorUpToCursor parseTree. |
4583 argName := tree argumentNames at:argIdx. |
4581 tree notNil ifTrue:[ |
4584 (argName includesString:'block' caseSensitive:false) ifTrue:[ |
4582 argName := tree argumentNames at:argIdx. |
4585 actionBlock value:{'[ "',argName,'" ]'} |
4583 (argName includesString:'block' caseSensitive:false) ifTrue:[ |
4586 value:{ self editActionToInsert:('[ "',argName,'" ]') } |
4584 actionBlock value:{'[ "',argName,'" ]'} |
4587 value:'block argument' |
4585 value:{ self editActionToInsert:('[ "',argName,'" ]') } |
|
4586 value:'block argument' |
|
4587 ]. |
4588 ]. |
4588 ]. |
4589 ]. |
4589 ]. |
4590 ] ifFalse:[ |
4590 ] ifFalse:[ |
4591 implementors notEmpty ifTrue:[ |
4591 implementors notEmpty ifTrue:[ |
4592 self breakPoint:#cg. |
4592 self breakPoint:#cg. |
5017 "/ ] |
5017 "/ ] |
5018 "/ ]. |
5018 "/ ]. |
5019 "/ |
5019 "/ |
5020 "/ info := best storeString. |
5020 "/ info := best storeString. |
5021 "/ implClass notNil ifTrue:[ |
5021 "/ implClass notNil ifTrue:[ |
5022 "/ info := implClass name , ' » ' , info. |
5022 "/ info := implClass name , ' » ' , info. |
5023 "/ ]. |
5023 "/ ]. |
5024 "/ self information:info. |
5024 "/ self information:info. |
5025 |
5025 |
5026 best ~= selector ifTrue:[ |
5026 best ~= selector ifTrue:[ |
5027 numArgs := best numArgs. |
5027 numArgs := best numArgs. |