23 lines
415 B
Smalltalk
23 lines
415 B
Smalltalk
![]() |
GRPrinter subclass: GRSequentialPrinter [
|
||
|
| parts |
|
||
|
|
||
|
<comment: nil>
|
||
|
<category: 'Grease-Core-Text'>
|
||
|
|
||
|
initialize [
|
||
|
<category: 'initialization'>
|
||
|
super initialize.
|
||
|
parts := OrderedCollection new
|
||
|
]
|
||
|
|
||
|
, aConverter [
|
||
|
<category: 'operators'>
|
||
|
parts add: aConverter
|
||
|
]
|
||
|
|
||
|
print: anObject on: aStream [
|
||
|
<category: 'printing'>
|
||
|
parts do: [:each | each print: anObject on: aStream]
|
||
|
]
|
||
|
]
|