"{ Package: 'stx:libbasic3' }"

ClassChange subclass:#ClassOtherChange
	instanceVariableNames:'type objectType'
	classVariableNames:''
	poolDictionaries:''
	category:'System-Changes'
!


!ClassOtherChange methodsFor:'accessing'!

objectType
    "return the value of the instance variable 'objectType' (automatically generated)"

    ^ objectType
!

objectType:something
    "set the value of the instance variable 'objectType' (automatically generated)"

    objectType := something.
!

source
    type == #initialize ifTrue:[
        ^ self fullClassName , ' initialize'.
    ].
    self halt.
!

type
    "return the value of the instance variable 'type' (automatically generated)"

    ^ type
!

type:something
    "set the value of the instance variable 'type' (automatically generated)"

    type := something.
! !

!ClassOtherChange class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOtherChange.st,v 1.2 2003-06-18 15:44:02 cg Exp $'
! !