17 lines
284 B
Smalltalk
17 lines
284 B
Smalltalk
|
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
|
||
|
]
|