31 lines
516 B
Smalltalk
31 lines
516 B
Smalltalk
Extension { #name : #PRText }
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
PRText >> isTextOrLineBreak [
|
|
^ true
|
|
]
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
PRText >> next [
|
|
^ self propertyAt: #next ifAbsent: [ nil ]
|
|
]
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
PRText >> next: aText [
|
|
self propertyAt: #next put: aText.
|
|
]
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
PRText >> textStart: aValue [
|
|
^ self
|
|
propertyAt: #textStart
|
|
put: aValue
|
|
]
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
PRText >> textStop: aValue [
|
|
^ self
|
|
propertyAt: #textStop
|
|
put: aValue
|
|
]
|