Change.st
changeset 2513 870cc96b3fbc
parent 2507 d657fabea438
child 2610 ddcbd51810a9
--- a/Change.st	Wed Sep 07 15:42:14 2011 +0200
+++ b/Change.st	Wed Sep 07 19:47:17 2011 +0200
@@ -38,6 +38,9 @@
 "
     abstract superclass for all kind of changes - managed in changeSets.
 
+    [instance variables:]
+        mcDefinition    ....    prep for monticello
+
     [author:]
         Claus Gittinger
 "
@@ -148,6 +151,22 @@
     "Created: / 19-07-2011 / 11:58:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+mcDefinition
+    "get the monticello definition (or nil)"
+
+    ^ mcDefinition
+
+    "Modified (comment): / 07-09-2011 / 19:46:20 / cg"
+!
+
+mcDefinition:something
+    "set the monticello definition (or nil)"
+
+    mcDefinition := something.
+
+    "Modified (comment): / 07-09-2011 / 19:46:24 / cg"
+!
+
 nonMetaClassName
 
     ^nil
@@ -477,11 +496,11 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.55 2011-09-05 05:27:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.56 2011-09-07 17:47:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.55 2011-09-05 05:27:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.56 2011-09-07 17:47:17 cg Exp $'
 !
 
 version_SVN