--- a/MCStReader.st Fri Nov 25 17:46:01 2011 +0100
+++ b/MCStReader.st Fri Nov 25 17:46:13 2011 +0100
@@ -14,22 +14,6 @@
^ 'st'
! !
-!MCStReader methodsFor:'* As yet uncategorized *'!
-
-visitClassInstVarDefinitionChange:aChange
- "there must be already a definition change for that class"
-
- |nonMetaName defn|
-
- self assert:(aChange className endsWith:' class').
- nonMetaName := aChange className copyWithoutLast:' class' size.
-
- defn := definitions detectLast:[:def | def isClassDefinition and:[def className = nonMetaName]].
- defn classInstVarNames: (aChange classInstVarNames).
-
- "Created: / 25-11-2011 / 17:32:12 / cg"
-! !
-
!MCStReader methodsFor:'as yet unclassified'!
addDefinitionsFromDoit: aString
@@ -209,6 +193,20 @@
"Created: / 25-11-2011 / 17:20:41 / cg"
!
+visitClassInstVarDefinitionChange:aChange
+ "there must be already a definition change for that class"
+
+ |nonMetaName defn|
+
+ self assert:(aChange className endsWith:' class').
+ nonMetaName := aChange className copyWithoutLast:' class' size.
+
+ defn := definitions detectLast:[:def | def isClassDefinition and:[def className = nonMetaName]].
+ defn classInstVarNames: (aChange classInstVarNames).
+
+ "Created: / 25-11-2011 / 17:32:12 / cg"
+!
+
visitDoItChange:aChange
self addDefinitionsFromDoit: aChange source
@@ -231,11 +229,11 @@
!MCStReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.4 2011-11-25 16:46:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.5 2011-11-25 16:46:13 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.4 2011-11-25 16:46:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.5 2011-11-25 16:46:13 cg Exp $'
!
version_SVN