CompositePart

addComponent: aVisualComponent

self isOpen

ifTrue: [ ... ]

ifFalse: [components addLast: aVisualComponent.

• aVisualComponent container: self]

displayOn: aGraphicsContext

"Display each of the receiver's components."

| clipBox |

clipBox := aGraphicsContext clippingBounds.

components do:

[:component |

(component intersects: clipBox)

ifTrue: [component displayOn: aGraphicsContext copy]]

Previous slide

Next slide

Back to first slide

View graphic version