Improved printing on PPCMLink.
This commit is contained in:
parent
51a5a09d6c
commit
2e5a2cb3b0
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user