'From Smalltalk/X, Version:2.6.4 on 29-Apr-1993 at 19:31:37'!

ClassChange subclass:#MethodChange
	 instanceVariableNames:'selector'
	 classVariableNames:''
	 poolDictionaries:''
	 category:'System-Changes'
!

!MethodChange class methodsFor:'instance creation'!

class:cls selector:sel source:src
    ^ self basicNew class:cls selector:sel source:src
! !

!MethodChange methodsFor:'accessing'!

class:cls selector:sel source:src
    className := cls name.
    selector := sel.
    source := src
! !

!MethodChange methodsFor:'printing'!

printString
    ^ className , ' ' , selector 
! !