--- a/Annotation.st Fri May 13 13:44:56 2016 +0200
+++ b/Annotation.st Fri May 13 13:56:18 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
All Rights Reserved
@@ -208,27 +206,39 @@
allNamed:aSymbol
"Answer a collection of all pragmas found in all methods of all classes whose keyword is aSymbol."
- ^ Array streamContents: [ :stream |
- Smalltalk allClassesDo:[:eachClass |
- self withPragmasIn: eachClass do: [ :pragma |
- pragma keyword = aSymbol
- ifTrue: [ stream nextPut: pragma ] ] ] ].
+ ^ Array
+ streamContents: [ :stream |
+ Smalltalk allClassesDo:[:eachClass |
+ self withPragmasIn: eachClass do: [ :pragma |
+ pragma keyword = aSymbol ifTrue: [
+ stream nextPut: pragma
+ ]
+ ]
+ ]
+ ].
"
Annotation allNamed:'worldMenu'
"
!
-allNamed: aSymbol from: aSubClass to: aSuperClass
- "Answer a collection of all pragmas found in methods of all classes between aSubClass and aSuperClass (inclusive) whose keyword is aSymbol."
-
- ^ Array streamContents: [ :stream |
- aSubClass withAllSuperclassesDo: [ :class |
- self withPragmasIn: class do: [ :pragma |
- pragma keyword = aSymbol
- ifTrue: [ stream nextPut: pragma ] ].
- aSuperClass = class
- ifTrue: [ ^ stream contents ] ] ].
+allNamed:aSymbol from:aSubClass to:aSuperClass
+ "Answer a collection of all pragmas found in methods of all classes
+ between aSubClass and aSuperClass (inclusive) whose keyword is aSymbol."
+
+ ^ Array
+ streamContents:[:stream |
+ aSubClass withAllSuperclassesDo:[:class |
+ self withPragmasIn:class do:[:pragma |
+ pragma keyword = aSymbol ifTrue: [
+ stream nextPut: pragma
+ ]
+ ].
+ aSuperClass = class ifTrue: [
+ ^ stream contents
+ ]
+ ]
+ ].
!
allNamed: aSymbol from: aSubClass to: aSuperClass sortedByArgument: anInteger
@@ -244,12 +254,16 @@
!
allNamed: aSymbol in: aClass
- "Answer a collection of all pragmas found in methods of aClass whose keyword is aSymbol."
-
- ^ Array streamContents: [ :stream |
- self withPragmasIn: aClass do: [ :pragma |
- pragma keyword = aSymbol
- ifTrue: [ stream nextPut: pragma ] ] ].
+ "Answer a collection of all pragmas found in methods of aClass whose keyword is aSymbol."
+
+ ^ Array
+ streamContents: [ :stream |
+ self withPragmasIn: aClass do: [ :pragma |
+ pragma keyword = aSymbol ifTrue: [
+ stream nextPut: pragma
+ ]
+ ]
+ ].
!
allNamed: aSymbol in: aClass sortedByArgument: anInteger