"{ Package: 'stx:goodies/metacello/core' }"

MetacelloMethodSection subclass:#MetacelloVersionMethodSection
	instanceVariableNames:'block versionSpec parent methodSections'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Constructors'
!


!MetacelloVersionMethodSection methodsFor:'accessing'!

addMethodSection: methodSection

	methodSection parent: self.
	self methodSections add: methodSection
!

attributeOrPath
	| path |
	^self parent == nil
		ifTrue: [ self attribute ]
		ifFalse: [ self parent attributePath , {(self attribute)} ]
!

attributePath
	| path |
	path := {self attribute.}.
	^self parent == nil
		ifTrue: [ path ]
		ifFalse: [ self parent attributePath , path ]
!

block
	^ block
!

block: anObject
	block := anObject
!

methodSections

	methodSections ifNil: [ methodSections := OrderedCollection new ].
	^methodSections
!

parent
	^ parent
!

parent: anObject
	parent := anObject
!

topParent
	self parent == nil
		ifTrue: [ ^ self ].
	^ self parent topParent
!

versionSpec
	^ versionSpec
!

versionSpec: anObject
	versionSpec := anObject
! !

!MetacelloVersionMethodSection class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !