"{ Package: 'stx:goodies/ring' }"

"{ NameSpace: Smalltalk }"

RGClassDescriptionDefinition subclass:#RGMetaclassDefinition
	instanceVariableNames:'baseClass'
	classVariableNames:''
	poolDictionaries:''
	category:'Ring-Core-Kernel'
!

RGMetaclassDefinition comment:'RGMetaclassDefinition is a concrete representation of metaclasses of classes (traits are excluded)'
!


!RGMetaclassDefinition class methodsFor:'class initialization'!

class: anORClassDefinition

    ^self new
        baseClass: anORClassDefinition;
        yourself
! !

!RGMetaclassDefinition methodsFor:'accessing'!

baseClass: aRGClassDefinition
    baseClass:= aRGClassDefinition.
    baseClass name notNil ifTrue:[ 
        self name: (baseClass name, ' class') asSymbol
    ].

    "Modified: / 29-08-2015 / 12:03:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

category
    ^ self theNonMetaClass category
!

environment

    ^baseClass environment
!

package

    ^baseClass package
!

realClass

    ^baseClass realClass theMetaClass

    "Modified: / 29-08-2015 / 10:27:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

theMetaClass

    ^self
!

theNonMetaClass

    ^baseClass
! !

!RGMetaclassDefinition methodsFor:'printing'!

storeOn: aStream
    
    aStream nextPut: $(. 
    super storeOn: aStream.
    aStream nextPutAll: ' baseClass:'.
    self theNonMetaClass storeOn: aStream.
    aStream nextPut: $).
    
! !

!RGMetaclassDefinition methodsFor:'testing'!

isMeta

    ^true
!

isSameRevisionAs: aRGMetaclassDefinition
    "This method look for equality of the properties of the receiver"

    ^(super isSameRevisionAs: aRGMetaclassDefinition)
        and:[ self traitCompositionSource = aRGMetaclassDefinition traitCompositionSource ]
! !

!RGMetaclassDefinition methodsFor:'variables'!

allClassVarNames

    ^self theNonMetaClass allClassVarNames
!

allSharedPoolNames

    ^self theNonMetaClass allSharedPoolNames
! !


!RGMetaclassDefinition class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !