|
Extension { #name : #PRList }
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
PRList >> level [
|
|
| current level |
|
|
current := self.
|
|
level := 0.
|
|
[ current notNil ]
|
|
whileTrue: [
|
|
(current isKindOf: PRList) ifTrue: [
|
|
level := level + 1.
|
|
].
|
|
current := current parent
|
|
].
|
|
^ level
|
|
]
|