1 VisualComponent subclass:#VisualPart

     2 	instanceVariableNames:'container'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	category:'Graphics-Display Objects'

     6 !

     7 

     8 

     9 !VisualPart methodsFor:'accessing'!

    10 

    11 container

    12     "return container"

    13 

    14     ^ container

    15 

    16     "Created: 9.5.1996 / 00:31:41 / cg"

    17 !

    18 

    19 container:something

    20     "set container"

    21 

    22     container := something.

    23 

    24     "Created: 9.5.1996 / 00:31:41 / cg"

    25 !

    26 

    27 graphicsContext

    28     "return the graphicsContext"

    29 

    30     ^ container gc

    31 

    32     "Created: 9.5.1996 / 00:32:12 / cg"

    33 ! !

    34 

    35 !VisualPart class methodsFor:'documentation'!

    36 

    37 version

    38     ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.1 1996-05-08 23:11:52 cg Exp $'

    39 ! !