hg/stx-goodies-ring: RGGlobalVariableDefinition.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	RGGlobalDefinition subclass:#RGGlobalVariableDefinition
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'value'
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	RGGlobalVariableDefinition comment:'A global variable definition'
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	!RGGlobalVariableDefinition 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	value
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	"Retrieves the current value of the global variable"
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	^ value
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	value: anObject
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	value := anObject
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	!RGGlobalVariableDefinition methodsFor:'managing container'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	addInContainer: aRGContainer
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	aRGContainer addGlobalVariable: self
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
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	isIncludedInContainer: aRGContainer
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	^aRGContainer includesGlobalVariable: self
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
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	removeFromContainer: aRGContainer
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	aRGContainer removeGlobalVariable: self
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	! !
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	!RGGlobalVariableDefinition methodsFor:'testing'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	isGlobalVariable
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	^true
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
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	isVariable
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	^true
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56

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