RGOrganization.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 02 Sep 2015 18:29:03 +0100
changeset 5 5cc2caa88b23
parent 0 43cb9f3e345e
permissions -rw-r--r--
SOme fixes in containes

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

"{ NameSpace: Smalltalk }"

RGAbstractContainer subclass:#RGOrganization
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Ring-Core-Containers'
!

RGOrganization comment:'An organization with categories'
!

!RGOrganization methodsFor:'accessing'!

categories
    "Retrieves categories in the system (tag-packages)"

    ^self elements at: #categories ifAbsent:[ #() ]
!

categories: aCollection
    "Set the categories collection"

    self elements at: #categories put: aCollection
!

fullName

    ^#organization
! !

!RGOrganization methodsFor:'initialization'!

initialize

    super initialize.
    self categories: OrderedCollection new.
! !

!RGOrganization methodsFor:'testing'!

isOrganization

    ^true
!

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

    ^(self class = aRGOrganization class)
        and:[ self categories = aRGOrganization categories ]
! !