#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Mon, 27 May 2019 15:16:15 +0200
changeset 4269 f2ee0d19a7bc
parent 4268 8a9c9976bce1
child 4270 94a8a3dbe5a6
#OTHER by cg class: URL category of: #postCopy
Model.st
--- 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