--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/DepPart.st	Wed May 29 00:43:39 1996 +0200
@@ -0,0 +1,41 @@
+VisualPart subclass:#DependentPart
+	instanceVariableNames:'model'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+
+!DependentPart class methodsFor:'instance creation'!
+
+model:aModel
+    "return a new instance and initialize its model"
+
+    ^ self new model:aModel
+
+    "Created: 24.5.1996 / 19:17:37 / cg"
+! !
+
+!DependentPart methodsFor:'accessing'!
+
+model
+    "return model"
+
+    ^ model
+
+    "Created: 24.5.1996 / 19:16:51 / cg"
+!
+
+model:something
+    "set model"
+
+    model := something.
+
+    "Created: 24.5.1996 / 19:16:51 / cg"
+! !
+
+!DependentPart class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/DepPart.st,v 1.1 1996-05-28 22:42:18 cg Exp $'
+! !