hg/stx-goodies-metacello: extensions.st@9e312de5f694 (annotated)

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

author	jv
	Mon, 03 Sep 2012 11:13:41 +0000
changeset 1	9e312de5f694
child 6	2cd0e1bd3518
permissions	-rw-r--r--