--- a/MCStXSnapshotPreWriteTransformation.st Fri May 31 01:51:45 2013 +0200
+++ b/MCStXSnapshotPreWriteTransformation.st Fri May 31 02:05:53 2013 +0200
@@ -134,20 +134,19 @@
definition
superclassName: 'Object';
category: class monticelloName.
- ].
-
- transformed definitions addFirst:
- (MCMethodDefinition
- className: definition className
- classIsMeta: true
- selector: 'monticelloProjectDefinitionTypeName'
- category: 'accessing - monticello'
- timeStamp: 'Generated by ', self class name , ' at ' , Timestamp now printString
- source:
- (self monticelloSmalltalkXProjectType_Code bindWith: (class isApplicationDefinition ifTrue:[#application] ifFalse:[#library]) storeString))
+ transformed definitions addFirst:
+ (MCMethodDefinition
+ className: definition className
+ classIsMeta: true
+ selector: 'monticelloProjectDefinitionTypeName'
+ category: 'accessing - monticello'
+ timeStamp: 'Generated by ', self class name , ' at ' , Timestamp now printString
+ source:
+ (self monticelloSmalltalkXProjectType_Code bindWith: (class isApplicationDefinition ifTrue:[#application] ifFalse:[#library]) storeString))
+ ]
"Created: / 29-05-2013 / 12:19:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 30-05-2013 / 12:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 31-05-2013 / 00:56:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
visitMethodDefinition: definition
@@ -167,10 +166,10 @@
!MCStXSnapshotPreWriteTransformation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.2 2013-05-30 23:35:04 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.3 2013-05-31 00:05:53 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.2 2013-05-30 23:35:04 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.3 2013-05-31 00:05:53 vrany Exp $'
! !