CypressPackageStructure.st
changeset 8 5d48f4894483
parent 7 dce8e52bd7ea
--- a/CypressPackageStructure.st	Mon Sep 03 10:00:33 2012 +0000
+++ b/CypressPackageStructure.st	Mon Sep 03 11:09:18 2012 +0000
@@ -55,6 +55,16 @@
 
 !CypressPackageStructure methodsFor:'converting'!
 
+asChangeSet
+    | changeset |
+
+    changeset := super asChangeSet.
+    changeset name: (self name , ' (loaded from Cypress)').
+    ^changeset
+
+    "Created: / 03-09-2012 / 11:52:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 changesOn:aStream
     "superclass CypressStructure says that I am responsible to implement this method"