--- a/ClassDefinitionChange.st	Wed Aug 31 12:06:12 2011 +0200
+++ b/ClassDefinitionChange.st	Wed Aug 31 12:06:34 2011 +0200
@@ -87,9 +87,27 @@
     | class |
     class := self changeClass.
     class ifNil:[^#+].
-    ^(self class isSource: self source sameSourceAs: class definition)
+    ^(self class isSource: self source sameSourceAs: class definitionWithoutPackage "definition")
         ifTrue:[#=]
         ifFalse:[#~]
+
+    "Modified: / 31-08-2011 / 09:26:48 / cg"
+!
+
+deltaDetail
+    "Returns a delta to the current state as a ChangeDelta object"
+
+    | class mySource imageSource|
+
+    class := self changeClass.
+    class isNil ifTrue:[^ ChangeDeltaInformation added ].
+    mySource := self source.
+    imageSource := class definitionWithoutPackage "definition".
+    ^ (self class isSource: mySource sameSourceAs: imageSource )
+        ifTrue:[ ChangeDeltaInformation identical ]
+        ifFalse:[ ChangeDeltaInformation different ]
+
+    "Created: / 31-08-2011 / 10:26:42 / cg"
 !
 
 instanceVariableNames
@@ -508,7 +526,7 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.59 2011-07-07 12:40:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.60 2011-08-31 10:06:34 cg Exp $'
 !
 
 version_SVN