Improving Markdown document tree node views.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-04-03 22:25:29 -05:00
parent e9465349e3
commit ee2ade0509
3 changed files with 38 additions and 1 deletions

View File

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

View File

@ -56,7 +56,7 @@ PPCMHeader >> viewBody [
BrGlamorousColors disabledButtonTextColor). BrGlamorousColors disabledButtonTextColor).
aText append: ('= "' asRopedText foreground: aText append: ('= "' asRopedText foreground:
BrGlamorousColors disabledButtonTextColor). BrGlamorousColors disabledButtonTextColor).
aText append: (child className asRopedText foreground: aText append: (child text asRopedText foreground:
BrGlamorousColors disabledButtonTextColor). BrGlamorousColors disabledButtonTextColor).
aText append: aText append:
('"' asRopedText foreground: ('"' asRopedText foreground:

View File

@ -19,3 +19,25 @@ PPCMListItem >> initialize [
PPCMListItem >> isBlockLevel [ PPCMListItem >> isBlockLevel [
^ true ^ true
] ]
{ #category : #accessing }
PPCMListItem >> viewBody [
| aText |
aText := self className asRopedText.
self children do: [ :child |
aText append: ' ' asRopedText.
aText append: (child className asRopedText foreground:
BrGlamorousColors disabledButtonTextColor).
aText append: ('= "' asRopedText foreground:
BrGlamorousColors disabledButtonTextColor).
aText append: (child className asRopedText foreground:
BrGlamorousColors disabledButtonTextColor).
aText append:
('"' asRopedText foreground:
BrGlamorousColors disabledButtonTextColor) ].
^ aText
]