'From Smalltalk/X, Version:2.10.1 on 7-may-1994 at 20:55:26'!

Method subclass:#WrappedMethod

	 instanceVariableNames:''

	 classVariableNames:''

	 poolDictionaries:''

	 category:'Kernel-Methods'

!

!WrappedMethod methodsFor:'queries'!

isWrapped

    ^ true

! !

!WrappedMethod methodsFor:'accessing'!

originalMethod

    "return the method I am wrapping"

    "a kludge: it must be in the literal array somewhere"

    literals do:[:aLiteral |

        aLiteral class == Method ifTrue:[

            ^ aLiteral

        ]

    ].

    ^ nil

!

basicLiterals

    "return my literals"

    ^ literals

!

methodArgAndVarNames

    |names|

    names := self methodArgNames.

    names isNil ifTrue:[^ #()].

    ^ names

!

source

    "return the wrapped methods source"

    ^ self originalMethod source

!

literals

    "return the wrapped methods literals"

    ^ self originalMethod literals

!

numberOfMethodVars

    ^ 0

!

methodVarNames

    ^ nil

! !