Tools__NewSystemBrowser.st
changeset 18549 92c95959de02
parent 18528 1f4c7873dc21
child 18550 8de40a119c04
equal deleted inserted replaced
18548:76121368cd6e 18549:92c95959de02
 48690 
 48690 
 48691                 "/ changed Jan.2017:
 48691                 "/ changed Jan.2017:
 48692                 "/ the old code always preserved the method's package, 
 48692                 "/ the old code always preserved the method's package, 
 48693                 "/ which leads to confusion and creates extra work most of the time (move to class's package)
 48693                 "/ which leads to confusion and creates extra work most of the time (move to class's package)
 48694                 "/ Now, we only do it, if the method was an extension.
 48694                 "/ Now, we only do it, if the method was an extension.
 48695                 isExtensionMethod ifTrue:[
 48695                 (isExtensionMethod or:[newClass package == oldProject]) ifTrue:[
 48696                     canUseRefactoringSupport ifTrue:[
 48696                     canUseRefactoringSupport ifTrue:[
 48697                         changes
 48697                         changes
 48698                             changeProjectOf:selectorToCopyOrMove
 48698                             changeProjectOf:selectorToCopyOrMove
 48699                             in:newClass
 48699                             in:newClass
 48700                             to:oldProject.
 48700                             to:oldProject.
 48735                         ].
 48735                         ].
 48736                         "/ changed Jan.2017:
 48736                         "/ changed Jan.2017:
 48737                         "/ the old code always preserved the method's package, 
 48737                         "/ the old code always preserved the method's package, 
 48738                         "/ which leads to confusion and creates extra work most of the time (move to class's package)
 48738                         "/ which leads to confusion and creates extra work most of the time (move to class's package)
 48739                         "/ Now, we only do it, if the method was an extension.
 48739                         "/ Now, we only do it, if the method was an extension.
 48740                         isExtensionMethod ifTrue:[
 48740                         (isExtensionMethod or:[newClass package == oldProject]) ifTrue:[
 48741                             canUseRefactoringSupport ifTrue:[
 48741                             canUseRefactoringSupport ifTrue:[
 48742                                 changes
 48742                                 changes
 48743                                     changeProjectOf:selectorToCopyOrMove
 48743                                     changeProjectOf:selectorToCopyOrMove
 48744                                     in:oldClass
 48744                                     in:oldClass
 48745                                     to:oldProject.
 48745                                     to:oldProject.
 48754     ].
 48754     ].
 48755 
 48755 
 48756     (canUseRefactoringSupport and:[anyChangeMade]) ifTrue:[
 48756     (canUseRefactoringSupport and:[anyChangeMade]) ifTrue:[
 48757         RefactoryChangeManager performChange: changes
 48757         RefactoryChangeManager performChange: changes
 48758     ].
 48758     ].
       
 48759 
       
 48760     "Modified: / 18-12-2018 / 12:10:07 / Claus Gittinger"
 48759 !
 48761 !
 48760 
 48762 
 48761 renameMethod:oldSelector in:aClass
 48763 renameMethod:oldSelector in:aClass
 48762     |newSelector tree dialog args newArgs map refactoring rslt
 48764     |newSelector tree dialog args newArgs map refactoring rslt
 48763      renameSelectedMethodsOnly renameOnly rewriteLocalSendersOnly
 48765      renameSelectedMethodsOnly renameOnly rewriteLocalSendersOnly