hg/stx-goodies-metacello: core/MetacelloProjectSpecGenerator.st@25ac697dc747 (annotated)

11 d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	1	"{ Package: 'stx:goodies/metacello/core' }"
1 9e312de5f694 - Initial commit jv parents: diff changeset	2
9e312de5f694 - Initial commit jv parents: diff changeset	3	Object subclass:#MetacelloProjectSpecGenerator
9e312de5f694 - Initial commit jv parents: diff changeset	4	instanceVariableNames:'target'
9e312de5f694 - Initial commit jv parents: diff changeset	5	classVariableNames:''
9e312de5f694 - Initial commit jv parents: diff changeset	6	poolDictionaries:''
9e312de5f694 - Initial commit jv parents: diff changeset	7	category:'Metacello-Core-Scripts'
9e312de5f694 - Initial commit jv parents: diff changeset	8	!
9e312de5f694 - Initial commit jv parents: diff changeset	9
9e312de5f694 - Initial commit jv parents: diff changeset	10
16 25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	11	!MetacelloProjectSpecGenerator methodsFor:'accessing'!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	12
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	13	projectSpecCreationBlock
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	14	^ [ :projectName \| {(MetacelloMCProject new projectSpec name: projectName)} ]
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	15	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	16
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	17	projectSpecListBlock
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	18	^ [ MetacelloProjectRegistration projectSpecs ]
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	19	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	20
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	21	projectSpecLookupBlock
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	22	^ [ :projectName \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	23	{(MetacelloProjectRegistration
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	24	projectSpecForClassNamed: (MetacelloScriptEngine baselineNameFrom: projectName)
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	25	ifAbsent: [ ]).
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	26	(MetacelloProjectRegistration
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	27	projectSpecForClassNamed: (MetacelloScriptEngine configurationNameFrom: projectName)
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	28	ifAbsent: [ ])} ]
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	29	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	30
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	31	target
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	32	^ target
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	33	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	34
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	35	target: anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	36	target := anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	37	! !
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	38
1 9e312de5f694 - Initial commit jv parents: diff changeset	39	!MetacelloProjectSpecGenerator class methodsFor:'documentation'!
9e312de5f694 - Initial commit jv parents: diff changeset	40
9e312de5f694 - Initial commit jv parents: diff changeset	41	version_SVN
9e312de5f694 - Initial commit jv parents: diff changeset	42	^ '$Id:: $'
9e312de5f694 - Initial commit jv parents: diff changeset	43	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 18 Sep 2012 18:24:44 +0000
changeset 16	25ac697dc747
parent 14	f01fe37493e9
permissions	-rw-r--r--