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
]