More document tree element views.

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

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