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 $'
! !