diff --git a/src/PetitMarkdown/PPCMContainer.class.st b/src/PetitMarkdown/PPCMContainer.class.st
index 4b006b2..1fc5238 100644
--- a/src/PetitMarkdown/PPCMContainer.class.st
+++ b/src/PetitMarkdown/PPCMContainer.class.st
@@ -8,3 +8,18 @@ Class {
 PPCMContainer >> accept: visitor [
 	^ 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
+]
diff --git a/src/PetitMarkdown/PPCMHeader.class.st b/src/PetitMarkdown/PPCMHeader.class.st
index dad312b..61ef059 100644
--- a/src/PetitMarkdown/PPCMHeader.class.st
+++ b/src/PetitMarkdown/PPCMHeader.class.st
@@ -56,7 +56,7 @@ PPCMHeader >> viewBody [
 				 BrGlamorousColors disabledButtonTextColor).
 		aText append: ('= "' asRopedText foreground:
 				 BrGlamorousColors disabledButtonTextColor).
-		aText append: (child className asRopedText foreground:
+		aText append: (child text asRopedText foreground:
 				 BrGlamorousColors disabledButtonTextColor).
 		aText append:
 			('"' asRopedText foreground:
diff --git a/src/PetitMarkdown/PPCMListItem.class.st b/src/PetitMarkdown/PPCMListItem.class.st
index fa3e4d6..eedda8d 100644
--- a/src/PetitMarkdown/PPCMListItem.class.st
+++ b/src/PetitMarkdown/PPCMListItem.class.st
@@ -19,3 +19,25 @@ PPCMListItem >> initialize [
 PPCMListItem >> isBlockLevel [
 	^ 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
+]