#asRedefinedInstance instead of #copy to keep original instance of an…

…notation when it is redefined
pharo-ide · Mar 2, 2018 · a7d4c4d · a7d4c4d
1 parent 636ae82
commit a7d4c4d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/redefineInstance.by..st b/ClassAnnotation.package/ClassAnnotation.class/class/redefineInstance.by..st
@@ -3,6 +3,7 @@ redefineInstance: aClassAnnotation by: aBlock
 	| redefined |
 	redefinedInstances ifNil: [ redefinedInstances := Dictionary new ].
 
-	redefined := redefinedInstances removeKey: aClassAnnotation ifAbsent: [ aClassAnnotation copy ].
+	redefined := redefinedInstances 
+		removeKey: aClassAnnotation ifAbsent: [ aClassAnnotation asRedefinedInstance ].
 	redefinedInstances at: aClassAnnotation put: redefined.
 	aBlock cull: aClassAnnotation
diff --git a/ClassAnnotation.package/ClassAnnotation.class/instance/asRedefinedInstance.st b/ClassAnnotation.package/ClassAnnotation.class/instance/asRedefinedInstance.st
@@ -0,0 +1,5 @@
+redefining
+asRedefinedInstance
+	"it is a hook method to allow subclasses copy extra state if needed 
+	to keep redefined instance in safe"
+	^self copy