1 VisualPart subclass:#DependentPart

     2 	instanceVariableNames:'model'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	category:'Graphics-Display Objects'

     6 !

     7 

     8 

     9 !DependentPart class methodsFor:'instance creation'!

    10 

    11 model:aModel

    12     "return a new instance and initialize its model"

    13 

    14     ^ self new model:aModel

    15 

    16     "Created: 24.5.1996 / 19:17:37 / cg"

    17 ! !

    18 

    19 !DependentPart methodsFor:'accessing'!

    20 

    21 model

    22     "return model"

    23 

    24     ^ model

    25 

    26     "Created: 24.5.1996 / 19:16:51 / cg"

    27 !

    28 

    29 model:something

    30     "set model"

    31 

    32     model := something.

    33 

    34     "Created: 24.5.1996 / 19:16:51 / cg"

    35 ! !

    36 

    37 !DependentPart class methodsFor:'documentation'!

    38 

    39 version

    40     ^ '$Header: /cvs/stx/stx/libview2/Attic/DepPart.st,v 1.1 1996-05-28 22:42:18 cg Exp $'

    41 ! !