--- a/MCStXSnapshotTransformation.st Fri May 31 01:35:26 2013 +0200
+++ b/MCStXSnapshotTransformation.st Fri May 31 01:35:33 2013 +0200
@@ -66,15 +66,16 @@
original := anMCSnapshot.
transformed := original copy.
+
"use #copy to allow modifications to definitions collection while
- transforming.
- use reverseDo: to transform class definitions first"
+ transforming."
transformed definitions copy reverseDo:[:definition|
definition accept: self.
].
^transformed.
"Created: / 29-05-2013 / 11:40:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 31-05-2013 / 00:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MCStXSnapshotTransformation methodsFor:'visiting'!
@@ -112,10 +113,10 @@
!MCStXSnapshotTransformation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotTransformation.st,v 1.1 2013-05-29 11:46:06 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotTransformation.st,v 1.2 2013-05-30 23:35:33 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotTransformation.st,v 1.1 2013-05-29 11:46:06 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotTransformation.st,v 1.2 2013-05-30 23:35:33 vrany Exp $'
! !