#REFACTORING by cg
class: SmalltalkCodeGeneratorTool
changed:
#codeFor_shouldImplementFor:inClass: (send #sendsSelector: instead of #sends:)
#createInitializedInstanceCreationMethodsIn: (send #sendsSelector: instead of #sends:)
--- a/SmalltalkCodeGeneratorTool.st Sun Feb 05 01:37:45 2017 +0100
+++ b/SmalltalkCodeGeneratorTool.st Sun Feb 05 01:38:23 2017 +0100
@@ -707,7 +707,7 @@
(metaClass includesSelector:#new) ifFalse:[
m := metaClass responseTo:#new.
(m isNil
- or:[ (m sends:#initialize) not
+ or:[ (m sendsSelector:#initialize) not
or:[
(Dialog
confirmWithCancel:('The inherited #new method already seems to invoke #initialize.\Redefine ?' withCRs)
@@ -730,7 +730,7 @@
self executeCollectedChangesNamed:('Add Initialized Instance Creation to ' , className).
"Created: / 11-10-2001 / 22:18:55 / cg"
- "Modified: / 30-01-2011 / 00:58:04 / cg"
+ "Modified: / 05-02-2017 / 01:25:06 / cg"
!
createIsAbstractMethodIn:aClass
@@ -2934,7 +2934,7 @@
"/ include the argument of the subclassResponsibility:-sending method
self canUseRefactoringSupport ifTrue:[
- (mthd sends:#subclassResponsibility:) ifTrue:[
+ (mthd sendsSelector:#subclassResponsibility:) ifTrue:[
searcher := ParseTreeSearcher new.
searcher
matches: 'self subclassResponsibility: `''.*'''
@@ -2955,6 +2955,8 @@
].
^ methodBodyStream contents
+
+ "Modified: / 05-02-2017 / 01:25:01 / cg"
! !
!SmalltalkCodeGeneratorTool class methodsFor:'documentation'!