--- a/CypressModel.st	Mon Sep 17 22:08:34 2012 +0000
+++ b/CypressModel.st	Tue Sep 18 10:40:17 2012 +0000
@@ -44,6 +44,38 @@
     ^properties
 
     "Modified: / 17-09-2012 / 22:10:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+properties: aDictionary
+    properties := aDictionary
+
+    "Created: / 18-09-2012 / 10:14:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!CypressModel methodsFor:'converting'!
+
+asChange
+    ^self subclassResponsibility
+
+    "Created: / 18-09-2012 / 10:17:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+asChangeSet
+    | cs |
+
+    cs := ChangeSet new.
+    self changesInto: cs.
+    ^cs.
+
+    "Created: / 18-09-2012 / 10:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!CypressModel methodsFor:'private'!
+
+changesInto: aChangeSet
+    self subclassResponsibility
+
+    "Created: / 18-09-2012 / 10:16:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CypressModel class methodsFor:'documentation'!