API improvements and added class comments and better names for the examples

Author: jordanmontt

src/MethodProxies/MpDeactivator.class.st

@@ -1,3 +1,7 @@
+"
+I am a deactivator handler. When an exception or a non local return occurs, I will be executed just like an ensure:
+I am executed in the same way that an ensure does
+"
 Class {
 	#name : 'MpDeactivator',
 	#superclass : 'Object',

src/MethodProxies/MpHandler.class.st

@@ -19,27 +19,37 @@ Class {
 	#package : 'MethodProxies'
 }
 
-{ #category : 'evaluating' }
+{ #category : 'evaluating - excepction or non local return' }
 MpHandler >> aboutToReturnWithReceiver: receiver arguments: arguments [
 
-	self afterExecutionWithReceiver: receiver arguments: arguments returnValue: nil
+    ^ self afterExecutionWithReceiver: receiver arguments: arguments returnValue: nil
 ]
 
 { #category : 'evaluating' }
 MpHandler >> afterExecutionWithReceiver: anObject arguments: anArrayOfObjects returnValue: returnValue [
+    "This is the method that you need to subclass if you want to execute the after method."
+
+    "IMPORTANT This method needs to ALWAYS return the object that the proxied method should return."
+    "This object is normally the argument `returnValue`; or something else if you want to change the returned object."
+
+    self afterMethod.
+    ^ returnValue
+]
 
-	"This is the method that you need to subclass if you want to execute the after method."
-	
-	"IMPORTANT!! This method needs to **ALWAYS** return the object that the proxied method should return."
-	"This object is normally the argument `returnValue`; or something else if you want to change the returned object."
+{ #category : 'evaluating' }
+MpHandler >> afterMethod [
 
-	^ returnValue
+    
 ]
 
 { #category : 'evaluating' }
 MpHandler >> beforeExecutionWithReceiver: anObject arguments: anArrayOfObjects [
 
-	"This is the method that you need to subclass if you want to execute a before action: an action that is executed before than the proxied method."
+    self beforeMethod
+]
+
+{ #category : 'evaluating' }
+MpHandler >> beforeMethod [
 
-	
+    
 ]

src/MethodProxies/MpMethodProxy.class.st

@@ -1464,9 +1464,8 @@ MpMethodProxy >> methodClass [
 { #category : 'installation' }
 MpMethodProxy >> prototypeTrapMethod [
 
-	^ self class class methods detect: [ :m |
-		  m numArgs = proxifiedMethod numArgs and: [
-			  m selector beginsWith: 'trap' ] ]
+    ^ self class class methods detect: [ :m |
+          m numArgs = proxifiedMethod numArgs and: [ m selector beginsWith: 'trapMethod' ] ]
 ]
 
 { #category : 'accessing' }

src/MethodProxiesExamples/MpChangesReturnValueHandler.class.st

@@ -0,0 +1,16 @@
+"
+I am an example hanlder that changes the return value of my instrumented method.
+
+"
+Class {
+	#name : 'MpChangesReturnValueHandler',
+	#superclass : 'MpHandler',
+	#category : 'MethodProxiesExamples',
+	#package : 'MethodProxiesExamples'
+}
+
+{ #category : 'evaluating' }
+MpChangesReturnValueHandler >> afterExecutionWithReceiver: receiver arguments: arguments returnValue: returnValue [
+
+    ^ 'trapped [' , returnValue asString , ']'
+]

src/MethodProxiesExamples/MpCountingHandlerWithReceiver.class.st

@@ -1,3 +1,6 @@
+"
+I am an example of a handler that counts how many times a method has been called and stores all the receivers
+"
 Class {
 	#name : 'MpCountingHandlerWithReceiver',
 	#superclass : 'MpCountingHandler',