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