Improved printing on PPCMLink.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-04-06 19:30:34 -05:00
parent 51a5a09d6c
commit 2e5a2cb3b0

View File

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