--- a/Behavior.st Fri Nov 18 20:48:57 2016 +0000
+++ b/Behavior.st Tue Nov 22 14:52:52 2016 +0000
@@ -1424,6 +1424,7 @@
^ self nameWithoutPrefix
! !
+
!Behavior methodsFor:'RefactoringBrowser'!
realClass
@@ -5161,15 +5162,17 @@
!
whichSelectorsAssign: instVarName
- "Answer a set of selectors whose methods write the argument, instVarName,
- as a named instance variable."
-
- ^ self whichSelectorsWrite: instVarName
+ "Answer a set of selectors whose methods write the argument, instVarName,
+ as a named instance variable."
+
+ ^ self whichSelectorsWrite: instVarName
+
+ "Modified (comment): / 16-11-2016 / 20:16:53 / cg"
!
whichSelectorsRead: instVarName
- "Answer a set of selectors whose methods read the argument, instVarName,
- as a named instance variable."
+ "Answer a set of selectors whose methods read the argument, instVarName,
+ as a named instance variable."
"/ | instVarIndex methodDict|
"/ instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
@@ -5177,12 +5180,13 @@
"/ ^methodDict keys select: [:sel | (methodDict at: sel)
"/ readsField: instVarIndex]
- | methodDict |
- methodDict := self methodDictionary.
- ^ methodDict keys
- select: [:sel | (methodDict at: sel) readsInstVar: instVarName]
+ | methodDict |
+
+ methodDict := self methodDictionary.
+ ^ methodDict keys select: [:sel | (methodDict at: sel) readsInstVar: instVarName]
"Modified: / 23-07-2012 / 11:22:04 / cg"
+ "Modified (comment): / 16-11-2016 / 20:16:45 / cg"
!
whichSelectorsReferTo:someLiteralConstant
@@ -5239,20 +5243,21 @@
!
whichSelectorsWrite: instVarName
- "Answer a set of selectors whose methods write the argument, instVarName,
- as a named instance variable."
+ "Answer a set of selectors whose methods write the argument, instVarName,
+ as a named instance variable."
"/ | instVarIndex methodDict |
"/ instVarIndex := self allInstVarNames indexOf: instVarName ifAbsent: [^Set new].
"/ methodDict := self methodDictionary.
"/ ^methodDict keys select: [:sel | (methodDict at: sel)
"/ writesField: instVarIndex]
- | methodDict |
- methodDict := self methodDictionary.
- ^ methodDict keys
- select: [:sel | (methodDict at: sel) writesInstVar: instVarName]
+ | methodDict |
+
+ methodDict := self methodDictionary.
+ ^ methodDict keys select: [:sel | (methodDict at: sel) writesInstVar: instVarName]
"Modified: / 23-07-2012 / 11:21:17 / cg"
+ "Modified (format): / 16-11-2016 / 20:17:17 / cg"
! !
!Behavior methodsFor:'snapshots'!