MCStXSnapshotPreWriteTransformation.st
changeset 873 8c7a9dcb9a69
parent 863 310347ceb9df
child 875 cc0588b2a9db
--- 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 $'
 ! !