mirror of
https://github.com/lxsang/Diya-API.git
synced 2025-02-22 10:52:48 +01:00
38 lines
667 B
Smalltalk
38 lines
667 B
Smalltalk
|
Class {
|
||
|
|
#name : #DiyaComposableNode,
|
||
|
|
#superclass : #DiyaNode,
|
||
|
|
#instVars : [
|
||
|
|
'children'
|
||
|
|
],
|
||
|
|
#category : #'Diya-Graphics'
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
DiyaComposableNode >> addNode: node [
|
||
|
|
^self addNode: node at: 0@0
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
DiyaComposableNode >> addNode: node at: pos [
|
||
|
|
node parent: self.
|
||
|
|
node position: pos.
|
||
|
|
children add: node.
|
||
|
|
^ node
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
DiyaComposableNode >> children [
|
||
|
|
^ children
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #initialization }
|
||
|
|
DiyaComposableNode >> initialize [
|
||
|
|
super initialize.
|
||
|
|
children := OrderedCollection new.
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
DiyaComposableNode >> render [
|
||
|
|
children do: [:c | c render ].
|
||
|
|
]
|