hg/stx-goodies-ring: RGTraitDescriptionDefinition.st@5cc2caa88b23 (annotated)

0 43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/ring' }"
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	RGBehaviorDefinition subclass:#RGTraitDescriptionDefinition
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'users'
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Ring-Core-Kernel'
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	RGTraitDescriptionDefinition comment:'RGTraitDescriptionDefinition is the common parent for traits and metatraits that know their users (ie. classes/metaclasses)'
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!RGTraitDescriptionDefinition methodsFor:'accessing'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	traitUsers
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	"Retrieves the receiver's classes and traits"
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	^users ifNil:[ users := OrderedCollection new ]
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	traitUsers: aCollection
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	users:= aCollection
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	users
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	"Retrieves the receiver's classes and traits"
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	^users ifNil:[ users := OrderedCollection new ]
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	users: aCollection
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	users:= aCollection
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!RGTraitDescriptionDefinition methodsFor:'adding/removing users'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	addUser: aRGBehavior
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	self users add: aRGBehavior
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	removeUser: aRGBehavior
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	self users remove: aRGBehavior ifAbsent:[]
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	!RGTraitDescriptionDefinition methodsFor:'testing'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	isTrait
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	^true
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	!RGTraitDescriptionDefinition methodsFor:'variables'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	allClassVarNames
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	^#()
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	allInstVarNames
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	^#()
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	allSharedPoolNames
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	^#()
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74

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--