10 lines
383 B
Smalltalk
10 lines
383 B
Smalltalk
Extension { #name : #GrafPort }
|
|
|
|
{ #category : #'*Grafoscopio' }
|
|
GrafPort >> gfcDisplayScannerFor: para foreground: foreColor background: backColor ignoreColorChanges: shadowMode [
|
|
^ (GrafoscopioDisplayScanner new text: para text textStyle: para textStyle
|
|
foreground: foreColor background: backColor fillBlt: self
|
|
ignoreColorChanges: shadowMode)
|
|
setPort: self shallowCopy
|
|
]
|