2020-05-10 20:38:20 +00:00
|
|
|
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.
|
|
|
|
]
|