diff --git a/src/MethodProxies/MpMethodProxy.class.st b/src/MethodProxies/MpMethodProxy.class.st index 7d14c48..b97d790 100644 --- a/src/MethodProxies/MpMethodProxy.class.st +++ b/src/MethodProxies/MpMethodProxy.class.st @@ -26,7 +26,7 @@ This package is developed and maintained by S. Ducasse, G. Polito and P. Tesone, " Class { #name : #MpMethodProxy, - #superclass : #ProtoObject, + #superclass : #Object, #instVars : [ 'selector', 'methodClass', @@ -37,6 +37,14 @@ Class { #category : #MethodProxies } +{ #category : #'reflective operations' } +MpMethodProxy class >> doesNotUnderstand: aMessage [ + + ^ CompiledMethod + perform: aMessage selector + withArguments: aMessage arguments +] + { #category : #'instance creation' } MpMethodProxy class >> on: selector inClass: aClass handler: aHandler [ @@ -69,6 +77,14 @@ MpMethodProxy >> = anObject [ ^ self == anObject ] +{ #category : #accessing } +MpMethodProxy >> calypsoEnvironmentType [ + ^ proxifiedMethod + ifNotNil: [ proxifiedMethod calypsoEnvironmentType ] + ifNil: [ super calypsoEnvironmentType ] + +] + { #category : #initialization } MpMethodProxy >> class: aClass selector: aSymbol [