25 lines
525 B
Smalltalk
25 lines
525 B
Smalltalk
|
Extension { #name : #PRDocumentItem }
|
||
|
|
||
|
{ #category : #'*Grafoscopio' }
|
||
|
PRDocumentItem >> textSize [
|
||
|
^ self textStop - self textStart
|
||
|
]
|
||
|
|
||
|
{ #category : #'*Grafoscopio' }
|
||
|
PRDocumentItem >> textStart [
|
||
|
^ self
|
||
|
propertyAt: #textStart
|
||
|
ifAbsent: [ self hasChildren
|
||
|
ifTrue: [ self children first textStart ]
|
||
|
ifFalse: [ 0 ] ]
|
||
|
]
|
||
|
|
||
|
{ #category : #'*Grafoscopio' }
|
||
|
PRDocumentItem >> textStop [
|
||
|
^ self
|
||
|
propertyAt: #textStop
|
||
|
ifAbsent: [ self hasChildren
|
||
|
ifTrue: [ self children last textStop ]
|
||
|
ifFalse: [ 0 ] ]
|
||
|
]
|