Improved printing on PPCMLink.

2023-04-06 19:30:34 -05:00 · 2023-04-06 19:30:34 -05:00 · 2e5a2cb3b0
parent 51a5a09d6c
commit 2e5a2cb3b0
1 changed files with 10 additions and 0 deletions
--- a/src/PetitMarkdown/PPCMLink.class.st
+++ b/src/PetitMarkdown/PPCMLink.class.st
@ -34,6 +34,16 @@ PPCMLink >> label: anObject [
 	label := anObject
 ]

+{ #category : #accessing }
+PPCMLink >> printOn: aStream [
+	super initialize.
+	^ aStream
+		nextPutAll: 
+			self label children first text,
+			' -> ',
+			self destination
+]
+
 { #category : #accessing }
 PPCMLink >> title [
 	^ title