--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MetacelloVersionMethodSection.st	Mon Sep 03 11:13:41 2012 +0000
@@ -0,0 +1,74 @@
+"{ Package: 'stx:goodies/metacello' }"
+
+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::                                                                                                                        $'
+! !