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

"{ NameSpace: Smalltalk }"

RGDefinition subclass:#RGGlobalDefinition
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Ring-Core-Kernel'
!

RGGlobalDefinition comment:'An RGGlobalDefinition is an abstract superclass for representing classes, global variables and shared pools
'
!

!RGGlobalDefinition methodsFor:'accessing'!

parent
    "Retrieves the namespace in which the receiver is known"
    
    ^self environment
! !

!RGGlobalDefinition methodsFor:'comparing'!

= aRGGlobalDefinition
    "This method look for equality of the properties of the receiver"
    "Verifies the class and the name of the receiver"

    ^self class = aRGGlobalDefinition class
        and:[ self name == aRGGlobalDefinition name ]
!

hash
    "Hash is re-implemented because #= is re-implemented"
    
    ^self class hash bitXor: (self name hash)
! !