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.
|
|
]
|