--- a/Model.st	Sat Sep 11 16:43:25 1999 +0200
+++ b/Model.st	Wed Sep 15 14:57:24 1999 +0200
@@ -71,6 +71,16 @@
     "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."
+
+    index == 1 ifTrue:[
+        ^ true "/ skip dependents
+    ].
+    ^ false
 ! !
 
 !Model methodsFor:'dependents access'!
@@ -252,5 +262,5 @@
 !Model class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.30 1998-01-30 13:23:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Model.st,v 1.31 1999-09-15 12:57:24 cg Exp $'
 ! !