diff --git a/src/PetitMarkdown/PPCMHtml.class.st b/src/PetitMarkdown/PPCMHtml.class.st
index 00d08c5..5727ae2 100644
--- a/src/PetitMarkdown/PPCMHtml.class.st
+++ b/src/PetitMarkdown/PPCMHtml.class.st
@@ -21,3 +21,20 @@ PPCMHtml >> text [
 PPCMHtml >> 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
+]
diff --git a/src/PetitMarkdown/PPCMStrong.class.st b/src/PetitMarkdown/PPCMStrong.class.st
index 809d36e..970e6c6 100644
--- a/src/PetitMarkdown/PPCMStrong.class.st
+++ b/src/PetitMarkdown/PPCMStrong.class.st
@@ -8,3 +8,20 @@ Class {
 PPCMStrong >> accept: visitor [
 	^ 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
+]