ProtoObjectObjectWABrush
| canvas | isClosed | parent |
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| canvas |
|---|
|
| isClosed |
|---|
|
| parent |
|---|
|
| as yet unclassified |
|---|
| close |
self isClosed ifFalse: [self with: []] |
| isClosed |
^ isClosed ifNil: [false] |
| parent |
^ parent |
| setParent: aBrush canvas: aCanvas |
parent _ aBrush. canvas _ aCanvas |
| with: aBlock |
canvas nest: aBlock. isClosed _ true. |