"{ Package: 'stx:libbasic3' }"

MethodChangeNotificationParameter variableSubclass:#MethodCategoryChangeNotificationParameter
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'System-Changes-Notifications'
!


!MethodCategoryChangeNotificationParameter class methodsFor:'instance creation'!

changeClass:changeClassArg changeMethod:changeMethodArg oldCategory:oldCategoryArg
    ^ (self new:3)
        changeClass:changeClassArg changeMethod:changeMethodArg oldCategory:oldCategoryArg
! !

!MethodCategoryChangeNotificationParameter methodsFor:'accessing'!

changeClass:changeClassArg changeMethod:changeMethodArg oldCategory:oldCategoryArg
    self at:1 put:changeClassArg.
    self at:2 put:changeMethodArg.
    self at:3 put:oldCategoryArg.
!

oldCategory
    ^ self at:3
! !

!MethodCategoryChangeNotificationParameter class methodsFor:'documentation'!

version_CVS
    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChangeNotificationParameter.st,v 1.1 2010-04-19 13:27:28 cg Exp $'
! !