hg/stx-goodies-metacello: core/extensions.st@d354ac2af7ec (annotated)

11 d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/metacello/core' }"!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!Block methodsFor:'*metacello-core-scripting'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	execute: projectSpecBlock against: aScriptExecutor
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	aScriptExecutor executeBlock: self do: projectSpecBlock
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	setAuthorInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	aMetacelloConfig setAuthorWithBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	setBaseline: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	aMetacelloConfig setBaseline: aString withBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	setBlessingInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	aMetacelloConfig setBlessingWithBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	setConfiguration: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	aMetacelloConfig setConfiguration: aString withBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	setDescriptionInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	aMetacelloConfig setDescriptionWithBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	setPackage: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	aMetacelloConfig setPackage: aString withBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	setProject: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	aMetacelloConfig setProject: aString withBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!Block methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	setTimestampInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	aMetacelloConfig setTimestampWithBlock: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	!Collection methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	addToMetacelloPackages: aMetacelloPackagesSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	self do: [:each \| each addToMetacelloPackages: aMetacelloPackagesSpec ]
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	!Collection methodsFor:'*metacello-core-scripting'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	execute: projectSpecBlock against: aScriptExecutor
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	aScriptExecutor executeCollection: self do: projectSpecBlock
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	!Collection methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	mergeIntoMetacelloPackages: aMetacelloPackagesSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	self do: [:each \| each mergeIntoMetacelloPackages: aMetacelloPackagesSpec ]
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	!Collection methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	removeFromMetacelloPackages: aMetacelloPackagesSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	self do: [:each \| each removeFromMetacelloPackages: aMetacelloPackagesSpec ]
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	!Collection methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	setIncludesInMetacelloPackage: aMetacelloPackageSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	aMetacelloPackageSpec setIncludes: self asArray.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	!Collection methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	setLoadsInMetacelloProject: aMetacelloPackageSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	aMetacelloPackageSpec setLoads: self asArray.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	!Collection methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	setRequiresInMetacelloPackage: aMetacelloPackageSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	aMetacelloPackageSpec setRequires: self asArray.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	!Integer methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	metacelloIntegerLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	^anInteger < self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	!Integer methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	metacelloSemanticIntegerLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	^ anInteger < self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	!Integer methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	metacelloSemanticStringLessThanSelf: aString
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	"string version components are always '<' integer component"
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	^ true
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	!Integer methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	metacelloSemanticVersionComponentLessThan: aMetacelloVersonComponent
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	^ aMetacelloVersonComponent metacelloSemanticIntegerLessThanSelf: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	!Integer methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	metacelloStringLessThanSelf: aString
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	"string version components are always '<' integer component"
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	^true
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	!Integer methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	metacelloVersionComponentLessThan: aMetacelloVersonComponent
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	^aMetacelloVersonComponent metacelloIntegerLessThanSelf: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	!Object methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	metacelloIntegerLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	^self error: 'Invalid Metacello verson component - should be String or Integer.'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	!Object methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	metacelloSemanticIntegerLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	^ self error: 'Invalid Metacello verson component - should be String or Integer.'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	!Object methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	metacelloSemanticStringLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	^ self error: 'Invalid Metacello verson component - should be String or Integer.'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	!Object methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	metacelloSemanticVersionComponentLessThan: aMetacelloVersonComponent
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	^ self error: 'Invalid Metacello verson component - should be String or Integer.'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	!Object methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	metacelloStringLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	^self error: 'Invalid Metacello verson component - should be String or Integer.'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	!Object methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	metacelloVersionComponentLessThan: aMetacelloVersonComponent
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	^self error: 'Invalid Metacello verson component - should be String or Integer.'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	addToMetacelloPackages: aMetacelloPackagesSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	\| spec \|
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	spec :=
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	(aMetacelloPackagesSpec project packageSpec)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	file: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	yourself.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	aMetacelloPackagesSpec addMember:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	(aMetacelloPackagesSpec addMember
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	name: spec name;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	spec: spec;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	asMetacelloSemanticVersionNumber
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	^ MetacelloSemanticVersionNumber fromString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	asMetacelloVersionNumber
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	^MetacelloVersionNumber fromString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	!String methodsFor:'*metacello-core-scripting'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	execute: projectSpecBlock against: aScriptExecutor
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	aScriptExecutor executeString: self do: projectSpecBlock
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	mergeIntoMetacelloPackages: aMetacelloPackagesSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	\| spec \|
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	spec :=
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	(aMetacelloPackagesSpec project packageSpec)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	file: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	yourself.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	aMetacelloPackagesSpec addMember:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	(aMetacelloPackagesSpec mergeMember
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	name: spec name;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	spec: spec;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	!String methodsFor:'*metacello-core-version comparison'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	metacelloIntegerLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	"integer version components are always '>' string component"
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	^false
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	!String methodsFor:'*metacello-core-version comparison'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	metacelloSemanticIntegerLessThanSelf: anInteger
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	"integer version components are always '>' string component"
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	^ true
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	!String methodsFor:'*metacello-core-version comparison'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	metacelloSemanticStringLessThanSelf: aString
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	^ aString < self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	!String methodsFor:'*metacello-core-version comparison'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	metacelloSemanticVersionComponentLessThan: aMetacelloVersonComponent
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	^ aMetacelloVersonComponent metacelloSemanticStringLessThanSelf: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	!String methodsFor:'*metacello-core-version comparison'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	metacelloStringLessThanSelf: aString
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	^aString < self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	!String methodsFor:'*metacello-core-version comparison'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280	metacelloVersionComponentLessThan: aMetacelloVersonComponent
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	^aMetacelloVersonComponent metacelloStringLessThanSelf: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	removeFromMetacelloPackages: aMetacelloPackagesSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	aMetacelloPackagesSpec addMember:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	(aMetacelloPackagesSpec removeMember
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	name: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	setAuthorInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	aMetacelloConfig setAuthorWithString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	setAuthorInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	aMetacelloVersionSpec setAuthor:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	(aMetacelloVersionSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	setBlessingInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	aMetacelloConfig setBlessingWithString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	setBlessingInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	aMetacelloVersionSpec setBlessing:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	(aMetacelloVersionSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	setDescriptionInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	aMetacelloConfig setDescriptionWithString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	setDescriptionInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	aMetacelloVersionSpec setDescription:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	(aMetacelloVersionSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	setIncludesInMetacelloPackage: aMetacelloPackageSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	aMetacelloPackageSpec setIncludes: { self }.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	setLoadsInMetacelloProject: aMetacelloPackageSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	aMetacelloPackageSpec setLoads: { self }.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	setPackage: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	aMetacelloConfig setPackage: aString withString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	setPostLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370	self asSymbol setPostLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	setPreLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	self asSymbol setPreLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	setProject: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	aMetacelloConfig setProject: aString withString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	setRequiresInMetacelloPackage: aMetacelloPackageSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	aMetacelloPackageSpec setRequires: { self }.
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	setTimestampInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	aMetacelloConfig setTimestampWithString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	!String methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	setTimestampInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	aMetacelloVersionSpec setTimestamp:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	(aMetacelloVersionSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	!Symbol methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	setPostLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	self precedence == 0
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	ifTrue: [ self error: 'Invalid selector' ].
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	setPostLoadDoIt:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	(aMetacelloSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	!Symbol methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	setPreLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	self precedence == 0
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	ifTrue: [ self error: 'Invalid selector' ].
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	setPreLoadDoIt:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	(aMetacelloSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	!Timestamp methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	setTimestampInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	aMetacelloConfig setTimestampWithString: self printString
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	!Timestamp methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	setTimestampInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	aMetacelloVersionSpec setTimestamp:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	(aMetacelloVersionSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	value: self printString;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	asMetacelloSemanticVersionNumber
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	^ MetacelloSemanticVersionNumber fromString: ''
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	asMetacelloVersionNumber
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	^MetacelloVersionNumber fromString: ''
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	metacelloRegistrationHash
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	^ self hash
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	registrationsCompareEqual: aMetacelloProjectSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	^ self = aMetacelloProjectSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	setAuthorInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	aMetacelloVersionSpec setAuthor: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	setBlessingInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	aMetacelloVersionSpec setBlessing: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	setDescriptionInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	aMetacelloVersionSpec setDescription: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	setPostLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	aMetacelloSpec setPostLoadDoIt:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	(aMetacelloSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	setPreLoadDoItInMetacelloSpec: aMetacelloSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	aMetacelloSpec setPreLoadDoIt:
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	(aMetacelloSpec project valueHolderSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	value: self;
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	yourself)
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	setProject: aString withInMetacelloConfig: aMetacelloConfig
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	aMetacelloConfig setProject: aString withString: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	!UndefinedObject methodsFor:'*metacello-core'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525	setTimestampInMetacelloVersion: aMetacelloVersionSpec
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	aMetacelloVersionSpec setTimestamp: self
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	! !
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	!stx_goodies_metacello_core class methodsFor:'documentation'!
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	extensionsVersion_SVN
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	^ '$Id:: $'
d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 10 Sep 2012 21:28:05 +0000
changeset 11	d354ac2af7ec
child 14	f01fe37493e9
permissions	-rw-r--r--