hg/stx-goodies-metacello: MetacelloMethodSpec.st@759ff40b4754 (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	Object subclass:#MetacelloMethodSpec
9e312de5f694 - Initial commit jv parents: diff changeset	4	instanceVariableNames:'project selector category versionString methodSections'
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-Constructors'
9e312de5f694 - Initial commit jv parents: diff changeset	8	!
9e312de5f694 - Initial commit jv parents: diff changeset	9
9e312de5f694 - Initial commit jv parents: diff changeset	10
9e312de5f694 - Initial commit jv parents: diff changeset	11	!MetacelloMethodSpec methodsFor:'accessing'!
9e312de5f694 - Initial commit jv parents: diff changeset	12
9e312de5f694 - Initial commit jv parents: diff changeset	13	category
9e312de5f694 - Initial commit jv parents: diff changeset	14	^ category
9e312de5f694 - Initial commit jv parents: diff changeset	15	!
9e312de5f694 - Initial commit jv parents: diff changeset	16
9e312de5f694 - Initial commit jv parents: diff changeset	17	category: anObject
9e312de5f694 - Initial commit jv parents: diff changeset	18	category := anObject
9e312de5f694 - Initial commit jv parents: diff changeset	19	!
9e312de5f694 - Initial commit jv parents: diff changeset	20
9e312de5f694 - Initial commit jv parents: diff changeset	21	methodSections
9e312de5f694 - Initial commit jv parents: diff changeset	22
9e312de5f694 - Initial commit jv parents: diff changeset	23	methodSections == nil ifTrue: [ methodSections := OrderedCollection new ].
9e312de5f694 - Initial commit jv parents: diff changeset	24	^ methodSections
9e312de5f694 - Initial commit jv parents: diff changeset	25	!
9e312de5f694 - Initial commit jv parents: diff changeset	26
9e312de5f694 - Initial commit jv parents: diff changeset	27	methodSections: anObject
9e312de5f694 - Initial commit jv parents: diff changeset	28	methodSections := anObject
9e312de5f694 - Initial commit jv parents: diff changeset	29	!
9e312de5f694 - Initial commit jv parents: diff changeset	30
9e312de5f694 - Initial commit jv parents: diff changeset	31	project
9e312de5f694 - Initial commit jv parents: diff changeset	32	^ project
9e312de5f694 - Initial commit jv parents: diff changeset	33	!
9e312de5f694 - Initial commit jv parents: diff changeset	34
9e312de5f694 - Initial commit jv parents: diff changeset	35	project: anObject
9e312de5f694 - Initial commit jv parents: diff changeset	36	project := anObject
9e312de5f694 - Initial commit jv parents: diff changeset	37	!
9e312de5f694 - Initial commit jv parents: diff changeset	38
9e312de5f694 - Initial commit jv parents: diff changeset	39	selector
9e312de5f694 - Initial commit jv parents: diff changeset	40	^ selector
9e312de5f694 - Initial commit jv parents: diff changeset	41	!
9e312de5f694 - Initial commit jv parents: diff changeset	42
9e312de5f694 - Initial commit jv parents: diff changeset	43	selector: anObject
9e312de5f694 - Initial commit jv parents: diff changeset	44	selector := anObject
9e312de5f694 - Initial commit jv parents: diff changeset	45	!
9e312de5f694 - Initial commit jv parents: diff changeset	46
9e312de5f694 - Initial commit jv parents: diff changeset	47	versionString
9e312de5f694 - Initial commit jv parents: diff changeset	48	^ versionString
9e312de5f694 - Initial commit jv parents: diff changeset	49	!
9e312de5f694 - Initial commit jv parents: diff changeset	50
9e312de5f694 - Initial commit jv parents: diff changeset	51	versionString: aStringOrSymbol
9e312de5f694 - Initial commit jv parents: diff changeset	52	versionString := aStringOrSymbol
9e312de5f694 - Initial commit jv parents: diff changeset	53	! !
9e312de5f694 - Initial commit jv parents: diff changeset	54
9e312de5f694 - Initial commit jv parents: diff changeset	55	!MetacelloMethodSpec methodsFor:'method generation'!
9e312de5f694 - Initial commit jv parents: diff changeset	56
9e312de5f694 - Initial commit jv parents: diff changeset	57	compileMethod
9e312de5f694 - Initial commit jv parents: diff changeset	58
9e312de5f694 - Initial commit jv parents: diff changeset	59	(project configuration class
9e312de5f694 - Initial commit jv parents: diff changeset	60	compile: self methodSource
9e312de5f694 - Initial commit jv parents: diff changeset	61	classified: self category) == nil
9e312de5f694 - Initial commit jv parents: diff changeset	62	ifTrue: [ self error: 'Error compiling the method' ]
9e312de5f694 - Initial commit jv parents: diff changeset	63	!
9e312de5f694 - Initial commit jv parents: diff changeset	64
9e312de5f694 - Initial commit jv parents: diff changeset	65	methodSource
9e312de5f694 - Initial commit jv parents: diff changeset	66
9e312de5f694 - Initial commit jv parents: diff changeset	67	self subclassResponsibility
9e312de5f694 - Initial commit jv parents: diff changeset	68	! !
9e312de5f694 - Initial commit jv parents: diff changeset	69
9e312de5f694 - Initial commit jv parents: diff changeset	70	!MetacelloMethodSpec class methodsFor:'documentation'!
9e312de5f694 - Initial commit jv parents: diff changeset	71
9e312de5f694 - Initial commit jv parents: diff changeset	72	version_SVN
9e312de5f694 - Initial commit jv parents: diff changeset	73	^ '$Id:: $'
9e312de5f694 - Initial commit jv parents: diff changeset	74	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 05 Sep 2012 16:35:54 +0000
changeset 7	759ff40b4754
parent 1	9e312de5f694
permissions	-rw-r--r--