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 ] ]
|
|
]
|