14 lines
428 B
Smalltalk
14 lines
428 B
Smalltalk
Extension { #name : #FormCanvas }
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
FormCanvas >> gfcParagraph: para bounds: bounds color: c [
|
|
|
|
| scanner |
|
|
self setPaintColor: c.
|
|
scanner := (port clippedBy: (bounds translateBy: origin)) gfcDisplayScannerFor: para
|
|
foreground: c background: Color transparent
|
|
ignoreColorChanges: false.
|
|
para drawOn: (self copyClipRect: bounds) using: scanner at: origin + bounds topLeft.
|
|
|
|
]
|