14 lines
337 B
Smalltalk
14 lines
337 B
Smalltalk
|
Extension { #name : #PRCodeblock }
|
||
|
|
||
|
{ #category : #'*Grafoscopio' }
|
||
|
PRCodeblock >> children [
|
||
|
^ self
|
||
|
propertyAt: #children
|
||
|
ifAbsentPut: [ { PRText new text: text; parent: self ;yourself } asOrderedCollection ]
|
||
|
]
|
||
|
|
||
|
{ #category : #'*Grafoscopio' }
|
||
|
PRCodeblock >> children: aCollection [
|
||
|
self propertyAt:#children put: aCollection.
|
||
|
]
|