Merge pull request pharo-project#6786 from MarcusDenker/methodsInProt…

…ocol-not-extension methodsInProtocol-not-extension
demarey · Jul 7, 2020 · cd14bd9 · cd14bd9
2 parents 54f1c66 + 9d3c2f9
commit cd14bd9
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 8 deletions.
diff --git a/src/Kernel/ClassDescription.class.st b/src/Kernel/ClassDescription.class.st
@@ -878,6 +878,13 @@ ClassDescription >> localSlots [
 	^ self slots select: [ :aSlot | aSlot isDefinedByOwningClass ]
 ]
 
+{ #category : #organization }
+ClassDescription >> methodsInProtocol: aString [
+
+	^ (self organization listAtCategoryNamed: aString) 
+			collect: [ :each | (self compiledMethodAt: each) ]
+]
+
 { #category : #'accessing tags' }
 ClassDescription >> methodsTaggedWith: aSymbol [
 	"Any method could be tagged with multiple symbols for user purpose. 

diff --git a/src/Ring-Definitions-Core/ClassDescription.extension.st b/src/Ring-Definitions-Core/ClassDescription.extension.st