More document tree element views.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-04-06 09:08:04 -05:00
parent cda799d210
commit 51a5a09d6c
2 changed files with 34 additions and 0 deletions

View File

@ -21,3 +21,20 @@ PPCMHtml >> text [
PPCMHtml >> text: anObject [ PPCMHtml >> text: anObject [
text := anObject text := anObject
] ]
{ #category : #accessing }
PPCMHtml >> viewBody [
| aText |
aText := (self className ,' ',
self text) asRopedText.
self children do: [ :child |
aText append: ' ' asRopedText.
aText append: (child className asRopedText foreground:
BrGlamorousColors disabledButtonTextColor)
].
^ aText
]

View File

@ -8,3 +8,20 @@ Class {
PPCMStrong >> accept: visitor [ PPCMStrong >> accept: visitor [
^ visitor visitStrong: self ^ visitor visitStrong: self
] ]
{ #category : #accessing }
PPCMStrong >> viewBody [
| aText |
aText := (self className ,' ',
self text) asRopedText.
self children do: [ :child |
aText append: ' ' asRopedText.
aText append: (child className asRopedText foreground:
BrGlamorousColors disabledButtonTextColor)
].
^ aText
]