--- a/Model.st Mon May 27 15:15:22 2019 +0200
+++ b/Model.st Mon May 27 15:16:15 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
@@ -99,12 +97,6 @@
!Model methodsFor:'copying'!
-postCopy
- "release dependents after copying"
-
- self dependents:nil
-!
-
skipInstvarIndexInDeepCopy:index
"a helper for deepCopy; only indices for which this method returns
false are copied in a deep copy."
@@ -112,6 +104,14 @@
^ index == 1 "/ skip dependents
! !
+!Model methodsFor:'copying-private'!
+
+postCopy
+ "release dependents after copying"
+
+ self dependents:nil
+! !
+
!Model methodsFor:'dependents access'!
addDependent:anObject