"{ Package: 'stx:libview2' }"

VisualPart subclass:#DependentPart

	instanceVariableNames:'model'

	classVariableNames:''

	poolDictionaries:''

	category:'Compatibility-ST80-Graphics-Display Objects'

!

!DependentPart class methodsFor:'documentation'!

documentation

"

    a dummy class - only existing to provide a compatible home

    for fileIn of ST-80 classes.

    Notice: 

        this class was implemented using protocol information

        from alpha testers, from reading PD programs and 

        from the Hopkins/Horan book.

        - it may not be complete or compatible to the corresponding ST-80 class. 

        If you encounter any incompatibilities, please forward a note 

        describing the incompatibility verbal (i.e. no code) to the ST/X team.

    [author:]

        Claus Gittinger

"

! !

!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/DependentPart.st,v 1.3 2003-08-18 12:13:35 cg Exp $'

! !